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INTRODUCCION qn 


N contra de lo que la mayoría de la gente supone, los or- 
denadores son máquinas sin inteligencia alguna. De lo 
único que son capaces es de seguir instrucciones que se 
les han dado previamente en forma de programa para rea- 
lizar Ciertas tareas. Por poner un ejemplo, una lavadora 
del modelo más sencillo es también una máquina con 
unos programas que le permiten realizar diferentes tareas 
según sean los requisitos de la colada. En este aspecto la 
=== única diferencia entre ambos tipos de máquina es que los 
programas de ordenador pueden tener miles de instrucciones y éstas se eje- 
cutan a un ritmo de miles, o millones, de veces por segundo. 

Si en algún momento un ordenador puede parecer inteligente, es por- 
que previamente se le ha dotado de un programa que le indica qué accio- 
nes emprender en las diferentes situaciones que se puedan producir. Si hu- 
biera que dar a un ordenador algún calificativo propio de un ser vivo, éste 
sería el de obediente, por lo que si se junta esto a la capacidad de ejecutar 
programas con muchas instrucciones a un ritmo muy rápido, pueden lle- 


E 


Si el programa no cubriera todos los casos que se pudiesen presentar, 
podría llegar un momento en que el ordenador no supiese qué hacer a con- 
tinuación, aunque pudiera parecer evidente. Si las instrucciones fuesen 
erróneas, por obvio que esto resultara, el ordenador las ejecutaría. La má- 
quina no sabe lo que está haciendo; simplemente se limita a seguir las ins- 
trucciones que se le han dado. 

Cuando un programa es complejo es muy difícil tener la certeza abso- 
luta de que está libre de errores y de que cubre todas las posibles situa- 


pecialmente pensadas para hacer los programas claros y fáciles de revisar 
y corregir. Este es el objetivo de la programación estructurada. 
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Las instrucciones que entienden los ordenadores se expresan por me- 
dio de números. Es lo que se conoce como código máquina y, en los pri- 
meros tiempos de la informática, los programas se escribían utilizando los 
números de las diferentes instrucciones directamente. Posteriormente se 
empezó a utilizar lo que se denomina lenguaje ensamblador, que consiste 
en usar, en lugar de cada número de instrucción, un nombre simbólico 
que recuerde para qué sirve. Por ejemplo, si la instrucción con código 17 
54 significa «ir al punto 54 del programa», se podría indicar como «saltar 
a 54» en lugar de utilizar sólo números. Posteriormente, un programa de 
ordenador denominado programa ensamblador se encargaría de traducir 
una a una las instrucciones de ensamblador a instrucciones de código má- 
quina para así generar el programa definitivo. 

Las instrucciones de código máquina permiten, por separado, hacer 
sólo tareas muy sencillas, del estilo de «sumar este número a este otro», 
«si tal número es menor que 5 entonces repetir las tres instrucciones an- 
teriores», etc. Ñ 

Si quisiésemos entonces expresar, dentro de un programa, tareas más 
complicadas, como presentar un número en la pantalla del ordenador o 
calcular el seno de un ángulo, para cada una de ellas habría que preparar 
un montón de instrucciones de código máquina. 

Para simplificar esto se crearon lo que se denomina lenguajes de nivel 
alto, uno de los cuales es el PASCAL. En programas escritos con ellos, ta- 
reas como las anteriores se expresarían como «presentar (34)» O «seno 
(alfa)», utilizándose, en general, instrucciones más parecidas a las que se 
podrían dar a un ser humano. 

Luego, la ejecución de cada una de estas instrucciones complejas su- 
pondría la ejecución de todas las de código máquina que fueran necesa- 
rias para realizar su cometido. 

Hay básicamente dos formas de conseguir esto, por medio de lo que se 
denomina «ejecución bajo intérprete», o por medio de un proceso previo 
de «compilación». 


INTERPRETES Y COMPILADORES 


Supongamos que el ordenador fuera un operario extranjero al que hu- 
biera que darle las instrucciones, para hacer su trabajo, escritas en su idio- 
ma, el croata. 

Como nosotros no sabemos croata, las instrucciones las tenemos escri- 
tas en castellano. Por ejemplo: 


1. Fijar la pieza en el tornillo de mesa. 
2. Coger un tornillo del cajón A. 


mn 


3. Ponerlo en el agujero número 3 con una arandela de presión. 
4. Apretar con una llave de tubo del 10. 
5. 


Para conseguir que el operario las ejecute, tenemos dos alternativas: 


l. Contratar a un intérprete para que vaya leyendo una instrucción 
tras otra y repitiéndoselas al operario en croata, a medida que las vaya eje- 
cutando. . 

2. Contratar a un traductor para que prepare un libro con todas las 
instrucciones traducidas al croata. Una vez hecho esto, el libro será entre- 
gado al operario para que empiece a ejecutarlas sólo. 


Las ventajas de la solución con intérprete serían: 


— Con el intérprete el operario se puede poner a trabajar nada más se 
haya terminado de preparar o modificar las instrucciones en castellano. 
Con el traductor habría que esperar primero a que se tradujeran todas las 
instrucciones y a que se imprimiese el libro, y eso cada vez que se intro- 
dujera un cambio. 

— Con el intérprete, es posible hacer que el operario deje un momen- 
to de trabajar, e interrogarle para saber cómo se encuentra y si las instruc- 
ciones son correctas y lo suficientemente claras, tras lo cual seguiría tra- 
bajando. Con el traductor, como tras hacer su trabajo se fue, no hay forma 
de entenderse con el operador mientras trabaja. 


Por otra parte, las ventajas de la solución con traductor serían: 


— El operador, al tener todo traducido, puede trabajar muy deprisa, 
sin tener que esperar a que un intérprete vaya traduciendo cada paso an- 
tes de ejecutarlo. 

— La sala de trabajo puede ser más pequeña, pues sólo hace falta que 
esté el operador en ella. 

— Como el traductor se puede tomar más tiempo para preparar el li- 
bro, las instrucciones traducidas por él son mucho más claras y concisas. 


Este ejemplo ilustra de manera clara la diferencia entre las dos mane- 
ras de proceder. 

Cuando se ejecuta un programa bajo intérprete, lo que está funcionan- 
do en el ordenador es un programa intérprete que va tomando una a una 
las instrucciones del nuestro y haciendo que el ordenador ejecute el pa- 
quete de instrucciones de código máquina que le corresponden. 

Por el contrario, la otra alternativa consiste en, por medio de un pro- 
grama compilador o traductor, generar uno nuevo a base de instrucciones 
de código máquina. Posteriormente será este nuevo programa el que pase 
a ejecutarse en el ordenador. 

Por ello, el proceso de elaboración de un programa que va a ser com- 
pilado es, normalmente, mucho más laborioso. En primer lugar, hay que 
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escribir el programa en lenguaje de nivel alto, utilizando para ello lo que 
se denomina un programa editor, que permite redactarlo de manera có- 
moda. Tras ello, utilizando el programa compilador, habría que traducirlo 
a instrucciones de código máquina. 

Por último, el nuevo programa así generado sería entregado al ordena- 
dor para que lo ejecutara. Si tras esto se comprobase que es necesario in- 
troducir cambios, para ello habría que volver a utilizar el programa edi- 
tor, tras lo cual se volvería a compilar el programa, etc. 

Sin embargo, los programas intérpretes suelen incluir un editor, por lo 
que, tras escribir nuestro programa, se puede pasar a ejecutarlo en cues- 
tión de fracciones de segundo con sólo pulsar unas pocas teclas. Además, 
la ejecución puede ser interrumpida en cualquier momento para obtener 
información sobre su situación, y continuar después o pasar a introducir 
cambios, de manera prácticamente instantánea. 

Debido a la facilidad de desarrollo de los programas utilizando un in- 
térprete para su ejecución, y a la mayor velocidad y eficacia cuando se acu- 
de a la compilación, a veces existe para un mismo lenguaje la posibilidad 
de utilizar los dos sistemas. Así, se ejecutaría el programa con un intérpre- 
te durante el proceso de elaboración y una vez que éste se diera por ter- 
minado, se compilaría el programa y se pasaría a utilizar su traducción. 

Aunque con el PASCAL al principio se utilizaba una mezcla de los dos 
sistemas (se traducía a un lenguaje intermedio que luego era ejecutado 
bajo intérprete), la mayoría de las versiones actuales son compiladas. 

No obstante, y en tiempos recientes, han aparecido en el mercado pro- 
gramas compiladores de PASCAL que incluyen un editor y que permiten 
desarrollar y probar los programas prácticamente con la misma rapidez y 
comodidad que con un intérprete, teniéndose además todas las ventajas 
de la compilación. Gracias a ellos el PASCAL ha pasado a ser uno de los 
lenguajes más utilizados en la actualidad. 


LENGUAJES ESTRUCTURADOS 


Los programas escritos en código máquina están formados siempre por 
una secuencia de instrucciones que se ejecutan una detrás de otra. Algu- 
nas de éstas sirven para alterar la marcha normal del programa y «saltar» 
a otra instrucción distinta de la que hay a continuación, pudiéndose gra- 
cias a ellas repetir bloques de instrucciones y, si la alteración estuviera con- 
dicionada al resultado de algún cálculo previo, escoger diferentes instruc- 
ciones para ejecutar a continuación según sea ese resultado. 

Los programas escritos con los primeros lenguajes de alto nivel que se 
desarrollaron y parte de los que se utilizan en la actualidad tienen, básica- 
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mente, el mismo aspecto que los programas escritos en código máquina, 
sólo que con instrucciones que suponen la realización de tareas más com- 
plicadas. 


Por ejemplo, un programa para obtener y mostrar raíces cuadradas de 
números podría ser algo así: 


l. Presentarun mensaje en la pantalla del ordenador pidiendo un nú- 


Leer el número tecleado. 

Si el número es negativo, ir al punto 6. 

Calcular la raíz cuadrada del número y presentarla. 

Ir al punto 7. 

Sacar mensaje recordando que el número debe ser positivo. 
Sacar mensaje preguntando si se desea seguir. 

Leer respuesta. 

En caso de respuesta afirmativa, ir al punto 1. 


2:00:00 1 9: YI 4 6 


— 


Sacar mensaje de despedida. 


Es posible demostrar que todo programa, por complejo que sea, puede 
expresarse combinando tres estructuras elementales: 


— Secuencias de instrucciones que se ejecutan una detrás de otra. - 
— Repetición de grupos de instrucciones según una condición dada. 


— Selección de unas instrucciones u otras según sea el resultado de 
un cálculo previo. 


En el ejemplo se puede observar que, gracias a instrucciones del tipo 
«ir al punto tal», se dan las tres estructuras: 


— Cuando la última respuesta es afirmativa se vuelve a repetir todo des- 
de el principio. 

— Según que el número sea positivo o no, se ejecutan unas instruccio- 
nes u otras. 


— Las instrucciones se ejecutan una detrás de otra mientras no se in- 
dique lo contrario. 


Sin embargo, su presencia no resulta evidente a primera vista y, si el 
programa completo constara de cientos o miles de instrucciones, podría 
resultar francamente difícil descubrir su arquitectura general cuando hu- 
biera que revisarlo o modificarlo. 

Los programas serían mucho más claros si, al escribirlos, se indicaran 
explícitamente las diferentes estructuras a utilizar. Por ejemplo: 
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Repetir la secuencia siguiente... 


— Presentar un mensaje en la pantalla del ordenador pidiendo 
un número. 


— Leer el número tecleado. 
— Si el número es negativo... 


— sacar mensaje recordando que el número debe ser po- 
sitivo. 


... pero en caso contrario: 


— Calcular la raíz cuadrada del número y presentarla. 


— Sacar mensaje preguntando si se desea seguir. 


— Leer respuesta. 


. hasta que la respuesta a la última pregunta sea negativa. 
Sacar mensaje de despedida. 


Los primeros lenguajes de programación de nivel alto, como el FOR- 
TRAN, dependían casi en exclusiva de las instrucciones de tipo «ir al pun- 
to tal» para obtener la repetición o selección de instrucciones, al igual que 
sucede con lenguajes más recientes como el BASIC. Con ellos, los progra- 
mas se construyen prácticamente igual que programando en código má- 
quina. 

A finales de los años sesenta, y cobrando auge hasta nuestros días, em- 
pezó a surgir una corriente entre los teóricos de la informática, contraria 
a esta forma de construir programas, y partidaria del empleo de lenguajes 
«estructurados» que permitieran expresar las diferentes estructuras de un 
programa de manera clara, para así facilitar su comprensión y permitir su 
revisión y corrección de una manera más rápida y fiable. Uno de los pri- 
meros lenguajes de este tipo fue el ALGOL. : 

Para intentar acomodarse a las nuevas tendencias, pronto empezaron 
a surgir variantes de los lenguajes del primer tipo que permiten expresar 
las estructuras de tipo repetición y selección directamente, sin el empleo 
de instrucciones para saltar de un punto a otro del programa. A estas va- 
riantes se les ha llegado a poner nombres como «BASIC estructurado». 

Sin embargo, el concepto de lenguaje estructurado va más allá de la po- 
sibilidad de prescindir de las instrucciones de tipo «salto». 

Otra de las características más importantes de la programación estruc- 
turada es la posibilidad de escribir los programas, no como un chorro in- 
terminable de instrucciones, sino empezando por una descripción aproxi- 
mada de las diferentes tareas a realizar y pasando luego a describir cada 
una de éstas, por separado, de manera más detallada. Por ejemplo, un pro- 
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grama para ordenar alfabéticamente los clientes de una empresa sería algo 
así: 


— Pedir los nombres de los clientes. 
— Ordenarlos. 
— Presentarlos, ya ordenados, por la pantalla del ordenador. 


Posteriormente, y por separado, se detallaría con mayor profundidad 
cada uno de esos puntos. Por ejemplo: 


«Pedir los nombres de los clientes:» 


Repetir la secuencia siguiente... 


— Sacar un mensaje pidiendo el nombre de un cliente. 
— Leer el nombre tecleado. 

— Guardarlo en la memoria del ordenador. 

— Sacar mensaje preguntando si se desea seguir. 

— Leer respuesta. 


...hasta que la última respuesta sea negativa. 


Aquí se podría haber utilizado también una descripción superficial de 
alguno de los puntos, que sería a su vez detallado por separado. 

El desglose de los programas en partes de menor complejidad, y éstas 
a su vez en otras, etc., permite, a la hora de revisar o modificar un progra- 
ma, localizar rápidamente la zona de interés e introducir los cambios, te- 
niéndose la seguridad de que otras partes del programa no se verán afec- 
tadas. Además, de esta manera es posible dividir cómodamente el trabajo 
entre diferentes personas o utilizar partes que ya se hubieran escrito con 
anterioridad para otro programa. 

Aunque los lenguajes como el BASIC permiten, en cierta forma, esta 
descomposición de los programas por medio de lo que se denomina «sub- 
rutinas», la flexibilidad e independencia de las diferentes partes es mu- 
cho menor que cuando se emplea un lenguaje auténticamente estructu- 
rado. 

En los lenguajes tipo BASIC, sólo se puede trabajar, básicamente, con 
números y caracteres (letras, cifras ...); en otras palabras, con prácticamen- 
te el mismo tipo de datos que pueden tratar los programas en código má- 
quina. 

Por ejemplo, para utilizar en un programa los meses del año, o los días 
de la semana, habría que asociar a cada uno de éstos un número, que se- 
ría el que realmente se utilizaría. 

Por otra parte, en el caso de los clientes del ejemplo anterior, si hubie- 
ra que utilizar diferentes datos sobre ellos (nombre, saldo de la cuenta...), 
cada uno de estos datos habría que tratarlo por separado. 

Otra de las características de los lenguajes estructurados es la posibili- 
dad de trabajar con datos que reflejen de manera precisa qué es lo que, en 
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el mundo real, representan. En otras palabras, permiten prescindir del he- 
cho de que los programas en código máquina sólo trabajan con números 
y caracteres. Por tanto, sería posible llamar a los diferentes meses o días 
de la semana por su propio nombre, o, de manera similar a como se hace 
al reflejar los diferentes datos de un cliente en una ficha de oficina, utili- 
zar todos los datos de cada cliente como un conjunto indisoluble. 

Esta última característica, denominada «estructuración de datos» y de 
la que veremos abundantes ejemplos a lo largo del libro, junto con las dos 
mencionadas anteriormente son, grosso modo, lo que diferencia a los len- 
guajes estructurados de los demás. 


== EL LENGUAJE PASCAL 


El PASCAL, quizá el más representativo de los lenguajes estructurados, 
fue ideado hacia principios de los años setenta por el profesor Niklaus 
Wirth, del Instituto Federal de Tecnología de Zurich (Suiza), uno de los 
principales impulsores de la programación estructurada desde sus prime- 
ros momentos. 

Cuando lo concibió, lo hizo con propósitos estrictamente académicos, 
tanto para ilustrar los conceptos de la programación estructurada, como 
para disponer de una herramienta adecuada para la enseñanza de la infor- 
mática. Su descripción del lenguaje es lo que se denomina PASCAL «están- 
dar». 

Posteriormente, el PASCAL, de manera no prevista por su autor, co- 


Ha sido rectentemente, con el auge de los ordenadores personales, 
cuando realmente el PASCAL ha pasado a establecerse como uno de los 
lenguajes más utilizados. 

Posteriormente, se han creado nuevos lenguajes estructurados como el 
ADA, el C o el MODULA-2 (este último ideado también por el profesor 
Wirth), pero ninguno de ellos ha alcanzado todavía la difusión del PASCAL 
(aunque, en nuestra opinión, el MODULA-2 debiera empezar ya a ser su su- 
cesor). 


SOBRE EL LIBRO 


Ya se ha mencionado que en el desarrollo de un programa PASCAL exis- 
ten varias fases. 
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En primer lugar hay que redactar el programa. Este proceso es exac- 
tamente igual al de, por ejemplo, redactar una carta por medio del orde- 
nador. En el mercado existe una gran variedad de programas editores para 
realizar esta tarea con la mayoría de los ordenadores existentes, y el lector 
debe acudir al manual de su editor concreto para aprender a utilizarlo. 

A continuación, hay que realizar el proceso de compilación. Para ello, 
hay que poner en marcha en el ordenador el programa compilador de PAS- 
CAL que tengamos, y suministrarle el texto del programa que previamente 
hemos preparado. 

A veces, dependiendo de cada compilador, hay que realizar tras la com- 
pilación lo que, en jerga informática, se denomina «linkedición». 

Por último, se pasaría a ejecutar el programa en código máquina. Cada 
compilador se utiliza de una manera distinta, y en sus manuales siempre 
hay cantidad de ejemplos explicando claramente los pasos a realizar desde 
que se tiene el programa PASCAL escrito, hasta que se pone en marcha, 
por fin, su traducción. 

A la hora de escribir este libro, se ha partido de la base de que el lector 
tiene, por lo menos, una mínima experiencia con ordenadores personales, 
y por ello no se ha dedicado ni una línea a explicar la utilización de un edi- 
tor o compilador en concreto. 

Sin embargo, se ha huido en todo momento de acudir a explicaciones 
que precisen un conocimiento más que superficial del funcionamiento de 
los ordenadores. Por ello, los lectores experimentados quizá encontrarán 
excesivamente simples las explicaciones de algunas cuestiones como, por 
ejemplo, el funcionamiento de los procedimientos recursivos, pues con- 
ceptos como el de «pila» no se mencionan en ningún momento. 

Sólo se presupone que el lector está familiarizado con cuestiones bási- 
cas como, por ejemplo, que la pantalla del ordenador está organizada en 
filas y columnas, o que el espacio en blanco es un carácter más tan respe- 
table como una letra o una cifra, o que la memoria del ordenador es una 
especie de colección de casilleros en los que se pueden guardar datos, tan- 
tos más cuanto mayor sea el número de aquéllos, etc. 

En general, se ha procurado poner ejemplos escritos en PASCAL más 
o menos «estándar» para que sean traducibles por cualquier compilador 
con ninguno o pocos cambios; sólo cuando es inevitable se ha acudido a 
utilizar un compilador concreto, como, por ejemplo, al hablar de ficheros. 
Los ejemplos se han escogido, no pensando en desarrollar programas úti- 
les (aunque algunos puedan serlo), sino más bien en ilustrar los diferen- 
tes conceptos que se van desarrollando. De paso, se ha aprovechado para 
introducir conceptos elementales como son la ordenación de tablas y el 


recorrido de estructuras tipo cola o árbol. 
Por todo esto, los ejemplos no son siempre soluciones tan brillantes 


como las que, es de esperar, se le ocurrirán al lector cuando tenga un poco 
de práctica. 
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Por otra parte, se han marginado deliberadamente aspectos que, a prio- 
ri, no son estrictamente necesarios para aprender a programar en PAS- 
CAL, como es el de variables empaquetadas («packed» en inglés). 

Por supuesto, las posibles peculiaridades de un compilador, como pue- 
den ser las instrucciones PEEK, POKE o INLINE para manejar las interio- 
ridades del ordenador, ni se mencionan. 

El objetivo principal del libro es despertar una inquietud en lectores 
que ya hayan tenido alguna experiencia, pequeña o grande, con otros len- 
guajes de programación. Si esto se consigue, el lector deberá acudir a li- 
bros más especializados y rigurosos para profundizar en el PASCAL y la 
programación estructurada. 
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EL PROGRAMA Pe 


STE capítulo hace una introducción al programa PASCAL, 
e ilustra cómo se definen los datos, cómo se leen datos del 
teclado y se escriben en la pantalla, y cómo se realizan cál- 
culos. Antes de entrar en detalles veamos un ejemplo de 
programa con el mínimo de elementos posible: 


Este programa escribe simplemente una frase (DOS Y DOS SON CIN- 
CO) en la pantalla del ordenador. 


Palabras reservadas 


En el ejemplo se observa que hay unas palabras impuestas por el PAS- 
CAL: PROGRAM, BEGIN y END. A éstas y a otras que irán apareciendo a 
lo largo del libro se les denomina palabras reservadas, es decir, palabras 
que sólo se pueden utilizar para cometidos específicos y que, por tanto, no 
se pueden utilizar nunca para dar nombre a variables, partes del progra- 
ma, etc. 


Identificadores 


Hay también una palabra puesta a nuestro gusto: PROGRAMATORPE. 
Es lo que se denomina un identificador. 


Los identificadores se utilizan en PASCAL para dar nombre a variables, 
programas, tipos de variables y, en general, a todos los elementos defini- 
dos por el programador. 
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A la hora de escribir un identificador, las únicas restricciones que se 
tienen son: 
— Deben empezar por una letra. 


— Tras esa letra puede ir cualquier combinación de letras y cifras. 
(Normalmente no se admite la N ni los acentos.) 

— No se admiten espacios en blanco de por medio. 

— En general, aunque esto depende del compilador, se admite cual- 
quier longitud, pero para diferenciar dos identificadores sólo se suelen te- 


ner en cuenta los primeros ocho caracteres. Así, los identificadores MUR- 
CIELAGO y MURCIELA son iguales para el compilador. 


— Normalmente se admite la mezcla de letras mayúsculas y minúscu- 
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Según estas reglas, H, PEPE y T37H son identificadores válidos, mien- 
tras que 3TJ, PE/PE y 7 son incorrectos. 

Algunos compiladores admiten también el carácter de subrayado, por 
lo que FICHA_UNO sería también un identificador válido. 

WRITE es un identificador predefinido, es decir, algo que ya tiene un 
significado sin que nosotros se lo hayamos dado previamente. A diferencia 
de las palabras reservadas, los identificadores predefinidos sí se pueden uti- 
lizar para algo nuestro, perdiendo entonces su significado previo, que es 
en este caso hacer que se escriba algo por la pantalla. 

Para no complicar las cosas, desde ahora se tratarán los identificado- 
res predefinidos como si fueran palabras reservadas, o sea, se utilizarán 
para su cometido original. 


— 
——— 
AA 
o 
— 
— 


ESTRUCTURA DEL PASCAL 


El propósito de un programa es, en general, procesar un conjunto de 
datos de entrada para obtener unos datos de salida. Un programa PASCAL 
consta así de dos partes, una en la que se describen los datos a utilizar y 
otra en la que están las instrucciones para procesar esos datos. 

El programa siempre empieza por una cabecera que consta de la pala- 
bra reservada PROGRAM seguida del nombre del programa, que puede ser 
cualquier identificador válido. La cabecera se separa de lo que venga a con- 
tinuación mediante un punto y coma. 

Tras la cabecera viene la descripción de los datos y tras ella la palabra 
reservada BEGIN (comenzar), que se utiliza para indicar el comienzo de 
la parte de instrucciones. Por último, END indica el fin de esa parte, y va 
acompañado de un punto para señalar que ahí acaba todo. 
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En definitiva quedaría así: 


PROGRAM EJEMPLO; 


BEGIN 


END. 


En el ejemplo del principio del capítulo, debido a que no hay datos que 
procesar, no existe descripción de datos. 

Igualmente podríamos tener un programa sin instrucciones, aunque, 
por supuesto, no serviría para nada: 


El número de líneas utilizado para escribir un programa no significa 
nada en PASCAL. Se podría poner: 


y se tendría en todo momento el mismo programa. 

De hecho, cualquier programa PASCAL podría escribirse en una sola 
línea lo bastante larga, aunque, ciertamente, sería difícil de descifrar lue- 
go y no es ese el objetivo del PASCAL. 
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Las palabras se deben escribir de una sola vez, sin partir con espacios 
por medio y sin dividirlas en dos líneas: 


El PASCAL interpretaría esto como dos palabras (BE y GIN). Igualmen- 
te, no se deben empalmar palabras: 


pues sería para el PASCAL una sola palabra. 


A 


En este programa hay descritos dos tipos de elementos: constantes y va- 
riables. También tiene escritos unos comentarios. 
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== Constantes 


La declaración de constantes debe ser precedida por la palabra reser- 
vada CONST. Esto indica al compilador que lo que viene a continuación, 
hasta que se indique otra cosa, son definiciones de constantes. 

Mediante ellas, asociamos un identificador a una constante o valor nu- 
mérico o alfanumérico (una frase). Su único objeto es evitar tener que es- 
cribir el número o frase cada vez que se necesite y usar el identificador en 
su lugar. Si en algún momento se deseara cambiar el valor de una cons- 
tante, bastaría con modificar su definición, mientras que si, por ejemplo, 
hubiéramos puesto -14 en lugar de ENE por todo el programa, habría que 
hacer muchos más cambios. 

El valor de una constante no puede cambiarse durante la ejecución del 
programa. 

En el ejemplo, a la palabra ENE se le ha asociado el valor -14; por ello, 
cada vez que aparezca ENE será como si se hubiera escrito -14 en su lu- 
gar. -14 es una constante del tipo denominado INTEGER o número entero. 

Asimismo, a TEXTO le hemos asociado una frase o constante alfanu- 
mérica. Las frases se delimitan en PASCAL usando apóstrofes y pueden 
contener cualquier palabra, símbolo, espacios en blanco, etc., sin que el 
compilador intente analizarlas: 


Cuando la frase debe incluir algún apóstrofe, para evitar que éste mar- 
que el final se pone por duplicado: 


Por supuesto, a la hora de presentar el texto en la pantalla aparecería 
un único apóstrofe. 

No se deben confundir las constantes numéricas con las constantes al- 
fanuméricas que tengan aspecto de número. 

Las frases se guardan en la memoria del ordenador carácter a carácter 
usando unos códigos especiales para ello. Por ello, si declaramos P = “-14* 
esta constante alfanumérica se guarda en la memoria como un signo me- 
nos, un 1 y un 4, mientras que la constante ENE del ejemplo se guarda 
usando otros códigos diferentes que se emplean para guardar números. 
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Por ello, mientras ENE puede aparecer en cálculos matemáticos, P nunca 
podría. Es simplemente un texto. 

Se pueden definir todas las constantes que se deseen, separando cada 
definición de la siguiente con un punto y coma. Tras cada identificador se 
debe escribir la constante asociada separada por un signo igual. 

Es una buena práctica escribir una sola definición por línea. 

Nótese que la palabra reservada CONST sólo se usa una vez. Todo lo 
que venga a continuación serán definiciones de constantes hasta que otra 
palabra reservada (VAR, BEGIN ...) cambie esa situación. 


Variables 


La definición de datos que pueden variar a lo largo de la ejecución del 
programa va precedida por la palabra reservada VAR. 

Los datos variables se guardan en porciones de la memoria del orde- 
nador, siendo estas porciones de mayor o menor tamaño según el tipo de 
dato que vayan a albergar. 

La declaración de variables sirve para que: 


1. El PASCAL reserve las porciones necesarias del tamaño adecuado. 
2. Asignar a cada pórción un nombre o identificador a fin de poderlas 
usar luego llamándolas por su nombre. 


Es como si antes de utilizar los buzones de correo del portal de una 
casa hubiera que decir: «Hace falta un buzón de tal tamaño a nombre de 
los señores de Pérez, otro el doble de grande a nombre de la señora de 
García...». 

Todas las variables en PASCAL deben ser descritas antes de utilizarlas. 
En PASCAL, tras la palabra VAR se pone el identificador de cada variable 
seguido de dos puntos y a continuación el tipo de variable. 

Supongamos que para hacer un programa de contabilidad de una co- 
munidad de vecinos necesitáramos guardar, al hacer los cálculos, el piso, 
el portal y la letra del vecino en cuestión. 

Necesitaríamos dos porciones de memoria para guardar el piso y el por- 
tal, que serán números enteros, y otra para guardar la letra, es decir, un 
carácter: 


N 


O 


Para evitar escribir mucho, las variables de un mismo tipo se pueden 
agrupar así: 


mitados. 
Igualmente se podría hacer con LETRA: 


si sólo hubiera letras de la A a la E en la casa de que se trata. 


N 
pus 


ñar. Si es un número, hay que obtener los símbolos que lo representan pre- 
viamente. 
También para esto se dispone de procedimientos adecuados. 


Salida 


Se pueden enseñar datos por pantalla, utilizando los procedimientos 
WRITE y WRITELN (write significa escribir, en inglés). 

La única diferencia entre ellos estriba en que, usando WRITE, lo que 
se escriba en la próxima ocasión aparecerá en la misma línea justo a con- 
tinuación de lo escrito en este momento, mientras que con WRITELN nos 


aseguramos de que lo que se escriba después salga en la línea siguiente. 
Veamos un ejemplo: 


En la pantalla saldrá : 


Lo que se desea que salga por pantalla se escribe entre paréntesis a con- 
tinuación del nombre del procedimiento escogido, separando esta instruc- 
ción de la siguiente por medio de un punto y coma. 


Se pueden escribir por pantalla: 
— Constantes: WRITE (PEPE) WRITE (17) 


— Constantes declaradas previamente : WRITE (ULTIMOPISO) 
— El valor de una variable en ese momento. 


1) 
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— Resultados de expresiones matemáticas y de otro tipo que ya se 
verán. 


Si hay más de un dato para mostrar en la misma línea se puede utilizar 
una sola instrucción escribiendo los datos separados por comas: 


que daría 1 10 345. 
Si quisiéramos que los números ocuparan una cantidad precisa de es- 
pacios, ésta se especificaría poniéndola a continuación del dato separada 


daría 1 - 10 15. 

En el programa DOS se usa también WRITELN sin datos. Esto es como 
escribir una línea vacía y sirve, por tanto, para dejar líneas en blanco. 

En el programa UNO hay más ejemplos de utilización de WRITE y WRI- 
TELN. 

Dependiendo del compilador de que se disponga existen otros proce- 
dimientos adicionales para la salida de datos: 


— CLRSCR (contracción de Clear Screen, borra pantalla) sirve para 
limpiar la pantalla de cualquier cosa que pudiera haber escrita en ella. En 
otros compiladores este procedimiento puede adoptar un nombre distin- 
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to, como, por ejemplo, PAGE. Es algo que se debe consultar en el Manual 
de nuestro compilador. 

— GOTOXY (go to XY, ve a XY) utilizado por delante. de WRITE o 
WRITELN sirve para que los datos aparezcan en un lugar escogido de la 
pantalla. 

Usando estos dos procedimientos en el programa DOS tendríamos: 


Si el recuadro marcara los lífites de la pantalla saldría: 


La última letra es la 


Es decir, se debe poner el número de columna o valor de coordenada 
X y a continuación el número de fila o valor de coordenada Y separado 
por una coma. Estos valores se pueden indicar con constantes, como en 
el ejemplo, con variables o incluso con expresiones matemáticas. 

Se ha supuesto que las columnas y filas se empiezan a numerar por 1, 
aunque en algunas versiones de PASCAL se empieza por 0. 

Al igual que con CLRSCR, puede darse el caso de que este procedi- 
miento tenga un nombre distinto o incluso que la columna y fila se deban 
poner en orden contrario. 
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Todas estas variaciones se pueden dar debido a que este procedimien- 
to no está incluido en la definición estándar del PASCAL y, por tanto, está 
hecho a gusto de las personas que hayan desarrollado el compilador. En 
estos casos es necesario acudir al Manual para saber cómo utilizarlos, los 
valores de fila y columna que podemos usar, etc. 


Entrada 


La forma habitual de hacer que datos introducidos por el teclado se al- 
macenen en una porción específica de memoria o variable es usar los pro- 
cedimientos READ y READLN (read significa leer). 

En general, la única diferencia entre ambos estriba en que, cuando se 
utiliza READLN, una vez se ha llenado la variable con el dato tecleado, 
todo lo que se hubiera escrito en la misma línea hasta que se pulsó la tecla 
de RETURN (o ENTER o INTRO o NEWLINE según el ordenador) se pier- 
de y no se puede aprovechar en una lectura posterior. Utilizando READ, 
lo que resta en la línea queda disponible para las sucesivas instrucciones 
READ. 


[Nota: utilizando el TURBO PASCAL con el ordenador personal IBM o 
compatibles, para que READ funcione de esta manera es necesario poner 
al principio del programa la opción de compilación, por ejemplo 
(*$G128*) para hacer la lectura a través del sistema operativo. ] 


Veamos un ejemplo: 


Debido a la utilización de READ para LETRA1, la segunda letra puede 
teclearse en la misma línea, sin separarla con RETURN de la primera, pues 
seguirá disponible para su posterior lectura con READLN. Si se hubiera uti- 
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lizado READLN para LETRA1, la segunda letra se habría perdido y se ten- 
dría que volver a escribir (seguida de RETURN, que es la forma de indi- 
carle al ordenador que ya se ha terminado de escribir el dato). 

En el ejemplo también se hace la lectura de un número entero. Si el 
número tecleado fuera incorrecto (por ejemplo, 3A5) o estuviese fuera de 
rango (132700), el programa se pararía dando un aviso de error. En casi 
todos los compiladores de PASCAL es posible evitar la parada del progra- 
ma y detectar el error para así dar la posibilidad de repetir la entrada de 
datos por medio de técnicas especiales que dependen de cada compilador 
y que escapan del alcance de este libro. 

Si varios datos van a ser leídos de una sola vez, como sucede con LE- 
TRA1 y LETRA2, es posible hacerlo con una sola instrucción: 


El uso de READLN hará que todo lo que se haya tecleado más allá de 
las dos letras se ignore. 

No obstante, la forma más adecuada de leer datos de teclado suele ser 
leerlos de uno en uno y usar WRITE o WRITELN previamente para indi- 
car qué es lo que se pide en cada caso. En el programa TRES: 


Nótese el diferente sitio en que aparecen las letras al ser tecleadas de- 
bido a la utilización de WRITE y WRITELN. 


Expresiones 


El programa anterior simplemente leía datos y los presentaba sin ha- 
cer ningún proceso con ellos ni generar nuevos datos. Evidentemente esto 


Una expresión es una lista de variables y constantes combinadas me- 
diante operadores para dar un resultado que a su vez puede ser guardado 
en una variable, mostrado en la pantalla o impresora, etc. 

En una expresión SOLO se pueden combinar constantes y variables de 
un mismo tipo. No tiene sentido sumar un número a una letra. 

En principio, hay cinco operadores que se pueden utilizar en expresio- 
nes de tipo INTEGER. Se escriben como + ,-, * , DIV y MOD: 


+ y — hacen que se sumen o resten los valores que se encuentran por 
delante y detrás de ellos: 3+1 equivale a poner 4. 

La multiplicación se indica con * : 2 * 3 es igual a 6. 

DIV representa la división entera, es decir, sin obtener decimales. 7 
DIV 3 da el resultado 2, igual que 6 DIV 3. 

MOD es el resto de la división entera. 7 MOD 3 vale 1, mientras que 6 
MOD 3 da O. 


Las expresiones de tipo INTEGER se calculan empezando por la iz- 
quierda, pero realizando las sumas y restas después de las demás opera- 
ciones. Por ejemplo: A 


2+ 6-5 * 4 + 7DIV2 primero * y DIV: 
2 + 6- 20 + 3 luego + y —: 
8 - 20 + 3 
-12 + 3 
-9 


Sin embargo, se puede alterar el orden de cálculo poniendo entre pa- 
réntesis lo que se desea que se calcule en primer lugar: 


2 + (6-5) * (4+7 DIV 2) primero lo de los paréntesis: 
2 + 1 > 7 luego * y DIV: 
2 + 7 
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Se pueden utilizar todos los paréntesis que se quiera e incluso parén- 
tesis dentro de paréntesis. Es una buena práctica poner paréntesis en cuan- 
to haya la más mínima duda sobre el orden de cálculo de una expresión, 
pues, además, la expresión queda mucho más clara. 

Una expresión de un tipo dado se puede poner en cualquier lugar en 
que pueda ir una variable o constante del mismo tipo. Por tanto, se podría 
escribir: 
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siendo PISOULTIMO y PISO, respectivamente, una constante y una varia- 
ble de tipo INTEGER aunque, claro está, el resultado de PISOULTIMO * 
PISO debe dar un valor razonable. 

Mediante la utilización de expresiones podemos cambiar el programa 
del principio del capítulo a: 


Asignación 


Las instrucciones de asignación permiten guardar datos en las varia- 
bles. 

Constan de dos partes separadas por el operador de asignación. A la iz- 
quierda se escribe el nombre o identificador de la variable en que se de- 
sea guardar el dato y a la derecha la constante, variable o expresión cuyo 
valor se desea guardar. 

El operador se escribe como := , o sea, dos puntos inmediatamente se- 
guidos de un signo igual. 

El valor a guardar DEBE ser del mismo tipo que la variable en que se 
guarda. No se pueden mezclar nunca tipos distintos. Veamos un ejemplo: 


Está claro que para guardar un valor en una variable antes hay que ob- 
tenerlo. Por ello, en los casos en que la variable a la que vamos a asignar 
el valor aparece también a la derecha, se utiliza su valor anterior para ob- 
tener el resultado de la expresión, y sólo una vez calculada ésta pasará la 
variable a tener el nuevo. 

Así, la instrucción N:=N+1 toma el valor anterior (7 en el ejemplo) para 
calcular la expresión. Una vez hecho esto, el resultado (8 en el ejemplo) 
se guarda en N. 

Si a continuación hubiera otra instrucción N:=N+1, N 'pasaría a va- 
ler 9, etc. 

Este caso concreto de instrucción resulta muy útil para contar el nú- 
mero de veces que se pasa por una parte de un programa. A las variables 
de tipo INTEGER así utilizadas se les denomina a veces contadores de pro- 
grama. 

En otros lenguajes como el BASIC esta instrucción se escribe como 
N=N+1, que tiene el aspecto de una expresión matemática que llevaría a 
la conclusión de que 1 es igual a 0. 

Como en PASCAL se pretende eliminar cualquier ambigiiedad, la asig- 
nación tiene su propio operador distinto del signo igual. 

Para terminar, veamos un programa de ejemplo con todas las cosas es- 
tudiadas hasta ahora: 


Nótese que la primera instrucción WRITELN ocupa más de una línea; 


esto se puede hacer siempre que no se parta un texto entre apóstrofes en 
dos líneas. 


TIPOS PREDEFINIDOS 
DE DATOS 


N el capítulo anterior mencionamos los tipos de datos IN- 
TEGER y CHAR. Vamos a ver en este capítulo con más de- 
talle los tipos existentes en PASCAL. En otros capítulos se 
verá cómo es posible además crear nuevos tipos adecua- 
dos a nuestras necesidades. Hay un capítulo dedicado es- 
pecialmente al tipo REAL. 


ea 
a 
o 
o 


LL 


EL TIPO INTEGER 


Este tipo es el que corresponde a los números enteros. Ya se ha visto 
cómo hacer para: 


— escribir constantes: 100,-15,0,1324 
— declararlas: CONST CIEN = 100 
— definir variables: VAR N : INTEGER 
— escribir expresiones: CIEN *(N-15) 


y además, cómo mostrar valores de tipo INTEGER, leerlos desde teclado 
y guardarlos en variables. 


Los operadores permitidos son: + ,-—,* , DIV y MOD. Hay dos funcio- 
nes importantes disponibles para este tipo de datos: 

— Si escribimos ABS(X) , esto da como resultado el valor absoluto de 
X, o sea, X mismo si es positivo, o -X si es negativo. 


— SOR (X) da como resultado el cuadrado de X (X*X). (SQR es la con- 
tracción de SQUARE, cuadrado en inglés). 
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Estas funciones se pueden utilizar como parte de expresiones sin res- 
tricción alguna. Por tanto, se podría escribir: 


—WRITELN ( 2 + ABS (3-7),' = “/SOR (2+1)); 


y esta instrucción mostraría en pantalla «6 y 9». 

Los valores que se pueden manejar con constantes, variables y expre- 
siones enteras tienen que estar comprendidos entre unos límites que de- 
penden del ordenador y del compilador que tengamos. La constante pre- 
definida MAXINT nos indica estos límites. 

Por ello, si MAXINT (máximo entero) vale 32767, valor habitual, los va- 
lores de tipo INTEGER deben estar entre -32767 y +32767 ambos inclusi- 
ve; por tanto, la expresión 1000 * 1000 , por ejemplo, daría un resultado 
que se sale de los límites provocando o bien la parada del programa o bien 
un resultado erróneo, según el compilador utilizado. El programa: 


PROGRAM MAXIMOENTERO; 
BEGIN  WRITELN ("El máximo entero posible es ",MAXINT) END. 


nos indicaría el valor de MAXINT en nuestro PASCAL. 

En los casos en que haya que tratar con cifras decimales o con núme- 
ros que se salgan de los límites, habrá que acudir al tipo REAL que se des- 
cribe en capítulo aparte. 


- ELTIPO CHAR 


Este tipo es el utilizado para manejar caracteres sueltos, es decir, una 
letra, una cifra, un signo de puntuación o incluso el espacio en blanco. 

Las constantes de tipo CHAR se escriben poniendo el carácter en cues- 
tión entre apóstrofes: “Z' 

Al igual que con el tipo INTEGER las constantes de tipo CHAR se pue- 
den declarar al comienzo del programa: 


=> CONST LETRADELPISO = 
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y también se pueden definir variables de tipo CHAR y mostrar y leer de te- 
clado valores de este tipo (es decir, caracteres). 

El conjunto de caracteres disponible depende del ordenador pero 
SIEMPRE existen, al menos, las mayúsculas del alfabeto inglés: 


ASB:C.D: E, FG. H.L.J, K L, MN, O: P.:0,R,:9; T,U, V, Wi X, Y, Z:. 
las nueve cifras decimales: 
0. 1,2.3.:4.5.6. 1.,8,9. 


y el espacio en blanco. 


-  Ordinales 


Internamente, y sin que nosotros nos demos cuenta de ello, los carac- 
teres se guardan en memoria utilizando números, uno distinto para cada 
posible valor. Son lo que se denomina números ordinales del conjunto de 
caracteres. 

Las letras están ordenadas según estos números. Si, por ejemplo, el or- 
dinal de la letra A fuera el 65, el de la B sería el 66 y así hasta la Z. Lo mis- 
mo sucede con las cifras del O al 9. 

Si se quisieran utilizar estos números en expresiones de tipo entero, la 
función ORD (C), donde C es un valor cualquiera de tipo CHAR, propor- 
ciona un resultado de tipo INTEGER igual al ordinal del carácter. 

A la inversa, si I fuera un valor de tipo INTEGER, CHR (I) nos propor- 
cionaría el carácter cuyo ordinal es I. Veamos un ejemplo: 


PROGRAM UNO; 

VAR 1 : INTEGER ; 
C : CHAR j 

BEGIN 

EAS 

1:=0RD (C); 


VRITELN (*El ordinal de la letra *,C,* es *,1); 

VRITELN ("La letra cuyo ordinal es ",I+7,” es * ,CHR(1+7)); 
WRITELN ( 'El ordinal de la cifra 0 es ',ORD (*0')) 

END. 


Existen también dos funciones más : 


— PRED (C) donde C es un carácter, nos devuelve el carácter anterior 
a él. PRED ('C*) equivale a poner “B'. 
— SUCC (C) devuelve el siguiente a C. 
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Se puede comprobar que: 


PRED (C) equivale a poner CHR (ORD(C) - 1) y 
SUCC (C) a CHR (ORD(C) + 1). 


Normalmente, en los ordenadores personales se utilizan los códigos AS- 
CI (siglas de American Standard Code for Information Interchange, pro- 
nunciado «aski»), en que las letras empiezan por el ordinal 65, las cifras 
por el 48 y el espacio en blanco, por ejemplo, tiene el 32. 


==  ELTIPO BOOLEAN 


En capítulos posteriores veremos que, normalmente, los programas tie- 
nen que tomar decisiones en función de determinados resultados. Por 
ejemplo: 


«Si el saldo bancario es mayor que 10000 ptas., entonces hacer esto...» 


Es decir, hay que hacer la operación de comparar el saldo bancario 
con 10000 para ver si es mayor o no. Si fuera mayor, el resultado de la ope- 
ración «saldo mayor que 10000» sería CIERTO y en caso contrario sería 
FALSO. 

Las expresiones de este tipo, que pueden dar como resultado CIERTO 
o FALSO, se llaman expresiones LOGICAS o de tipo BOOLEAN. 

En PASCAL está definido el tipo de dato BOOLEAN, que es aquél que 
sólo puede tener dos valores, CIERTO y FALSO, valores que se represen- 
tan mediante las constantes predefinidas TRUE (cierto en inglés) y FALSE. 


— Como tal tipo, podemos definir variables BOOLEAN donde guardar 
estos datos y que sólo pueden tomar los valores TRUE y FALSE: 


VAR SALDOCORRECTO : BOOLEAN; 


— Se pueden asignar valores a esas variables: 


- SALDOCORRECTO:= FALSE; 


— Se pueden mostrar valores BOOLEAN: 


=P 


Esto último haría que se escribiera la palabra TRUE O FALSE según el 
valor de la variable. 

Sin embargo, NO se puede utilizar READ o READLN con variables 
BOOLEAN. 


Expresiones con valores INTEGER 
que dan resultado BOOLEAN 


Muy frecuentemente se desean comparar números enteros para tomar 
decisiones, como en el caso del saldo. 

Si el valor del saldo estuviera guardado en la variable SALDO, la expre- 
sión 


SALDO > 10000 


daría TRUE o FALSE como resultado según que SALDO fuera mayor o no 
que 10000. Podríamos poner, pues: 


SALDOCORRECTO:= (SALDO > 10000); 


Existen los siguientes operadores: 


> significa «mayor que»: SALDO > 10000 
>= significa «mayor o igual que»: (PISO-3) >= (2*4) 
< significa «menor que» 

<= significa «igual o menor que» 

= significa «igual a»: SALDO =0 
<>significa «distinto de» ULTIMOPISO <> 15 


Además, la función ODD (1) (odd significa impar entre otras cosas), don- 
de I es un valor INTEGER, devuelve el valor TRUE si 1 es impar y FALSE 
en caso contrario: 


ACERAIMPAR := ODD (PORTAL); 
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Expresiones con valores CHAR 
que dan resultado BOOLEAN 


Dado que los caracteres tienen asociados unos números ordinales, las 
operaciones de comparación que se pueden hacer con el tipo INTEGER 
se pueden hacer también con el tipo CHAR, pues en el fondo lo que se com- 
paran son los ordinales. 

Así, 'A' < 'B' dará el resultado TRUE, pues ORD('A') es menor que 
ORD('B?). 

Podríamos escribir entonces: 


ELPISOMAYOR:= (LETRA = “A'); 
BARATO := (LETRA >= 'C); 


Donde ELPISOMAYOR y BARATO son variables BOOLEAN. Por ejemplo, 
BARATO valdría TRUE si LETRA fuera C, D, E,... 

En otras palabras, la comparación < , «menor que», se podría llamar 
ahora «viene antes, por orden alfabético, que» y de manera análoga para 
las otras. 

Como se puede imaginar, esto será muy útil a la hora de ordenar alfa- 
béticamente textos de cualquier tipo. 


AO 


Expresiones de tipo BOOLEAN 


Una expresión de tipo BOOLEAN es un conjunto de valores de ese mis- 
mo tipo combinados entre sí mediante operadores lógicos (o booleanos) 
para dar a su vez un resultado de tipo BOOLEAN. Los operadores dispo- 
nibles son: 


— AND, operación lógica «Y». La operación AND aplicada a dos valo- 
res lógicos da resultado TRUE si y sólo si ambos valores son TRUE simultá- 
neamente. 

— OR, operación lógica «O». Aplicada a dos valores lógicos resulta 
TRUE cuando cualquiera de ellos, o los dos a la vez, es TRUE. 

— NOT, operación de negación. Aplicado a un valor lógico, proporcio- 
na su opuesto, es decir, FALSE si era TRUE y viceversa. 

— En algunas versiones de PASCAL existe además la operación XOR 
u «O exclusivo», similar a OR, pero que resulta TRUE sólo si alguno de los 
dos valores es TRUE y no si ambos lo son a la vez. Esta operación, al no 
ser estándar, pudiera tener un nombre distinto. 
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Las expresiones se evalúan de izquierda a derecha, realizándose prime- 
ro las operaciones NOT, luego las AND y después las demás. 

Supongamos que las variables A, B y D tuvieran el valor FALSE y que 
C tuviera el valor TRUE. Entonces tendríamos: 


A OR B OR C AND NOT(D) primero NOT: 
A OR B OR C— AND TRUE luego AND: 


A OR B OR TRUE y por último OR: 
FALSE OR TRUE 
TRUE 


Al igual que en las expresiones de tipo INTEGER, se pueden utilizar pa- 
réntesis para asegurar un determinado orden de evaluación: 


(A OR B) AND NOT (C OR D). 


Volviendo al ejemplo del saldo anterior, si hubiera dos variables SAL- 
DO1 Y SALDO2 de tipo INTEGER que indicaran los saldos de dos cuentas 
de una persona, la instrucción: 


HAYSUFICIENTE := (SALDO1 > 10000) OR (SALDO2 > 10000); 


haría que la variable BOOLEAN HAYSUFICIENTE valiera TRUE cuando 
uno de los dos saldos al menos fuera mayor que 10000. 
Nótese que la instrucción: 


HAYSUFICIENTE := NOT ( (SALDO1 <= 10000) AND 
(SALDO2 <= 10000) ); 


es equivalente: hay suficiente cuando NO sucede a la vez que SALDO1 es 
insuficiente y SALDOZ2 es insuficiente. 
Nótese también que: 


(SALDO1 > 10000) equivale a NOT (SALDO <= 10000) y 
(N = 100) equivale a NOT (N <> 100). 
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osea, SALDO1 mayor que 10000 equivale a SALDO1 no menor o igual que 
10000. Esto también sucede con los restantes operadores de comparación. 
Resumiendo en una tabla los resultados de las operaciones lógicas: 


a [ja AND Bj AORB ¡A XOR B| NOTA NOT B 
F E F F F T T 


F = FALSE 
T = TRUE 


A y B pueden ser cualquier variable, comparación, etc., que proporcio- 
ne un resultado de tipo BOOLEAN. 


Notas: 

— Para los amantes del BASIC: Como se ve, en PASCAL el resultado 
de una operación lógica sólo puede dar los valores TRUE y FALSE que NO 
son números. Por tanto, cosas como A = A + (B > 5), tan habituales en 
BASIC aprovechando que el resultado falso es un O y el cierto, general- 
mente, un —1, no son posibles en PASCAL. 

NUNCA se pueden mezclar datos de diferente tipo. 


— Aunque no resulta de demasiada utilidad, puede ser interesante sa- 
ber que internamente los valores BOOLEAN, como los CHAR, tienen aso- 
ciados números ordinales de manera que ORD (TRUE) es mayor que ORD 
(FALSE) y, por tanto, es posible comparar a su vez valores de tipo BOO- 
LEAN. Ejemplos: 


A = B, donde A y B son valores BOOLEAN, dará resultado TRUE si am- 
bos son TRUE o FALSE a la vez. 

A = FALSE dará TRUE si A es igual a FALSE, o sea, equivale a poner 
NOT (A). Igualmente A = TRUE o A <> FALSE equivale a poner A simple- 
mente. 

A <> B se puede comprobar que equivale a A XOR B mirando la ta- 
bla anterior. 

Con la función ORD sí se podrían hacer cosas similares a las de BASIC, 
pues ORD da un resultado de tipo INTEGER: 


== A:=A+ORD(A<>7) 


== EL TIPO STRING 


Antes de nada: éste NO es un tipo estándar del PASCAL y, por tanto, su 
forma de utilización cambia de unas versiones a otras. Hay versiones de 
PASCAL que no tienen lo que aquí denominamos tipo STRING y que, por 
el contrario, llaman STRING a variables del tipo ARRAY OF CHAR, que sí 
son estándar y que veremos en otros capítulos. 

Aquí nos limitaremos a describir sus características generales, debién- 
dose leer el Manual del compilador para las cuestiones de detalle. 

Hemos visto en el capítulo anterior que se pueden definir constantes 
de tipo texto: 


TEXTO = “TRAS PENSARLO HE OBTENIDO QUE: 


Sin embargo, las únicas variables vistas hasta el momento que permi- 
ten trabajar con caracteres, las de tipo CHAR, sólo permiten guardar ca- 
racteres sueltos. 

En otros capítulos se verá que se pueden definir variables de tipo 
ARRAY o tabla que permiten manejar textos, pero éstos deben tener siem- 
pre la misma longitud, que se define al escribir el programa. 

Para facilitar el manejo de frases es para lo que la mayoría de compi- 
ladores han incorporado el tipo STRING que, grosso modo, es similar al 
existente en BASIC. 

La variable de tipo STRING permite guardar frases de longitud varia- 
ble que puede ir desde cero a un límite que depende del compilador, nor- 
malmente 255 caracteres. En algunos compiladores se declaran así: 


VAR NOMBRE : STRING; 
mientras que en otros puede ser: 


—— VAR NOMBRE : STRING [10], — == 


caso de que 10 fuera el máximo número previsto de caracteres que pudie- 
ran llegar a tener los textos a almacenar en NOMBRE. 
Algunos compiladores precisan formas más laboriosas de definición. 
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La asignación de datos a variables de tipo STRING se hace como siem- 
pre: 


= NOMBRE := “PEPE: : 
NOMBRE := 'ANTONIO*: 


Un dato de tipo CHAR normalmente se puede guardar en un STRING: 
NOMBRE := SUCC ('B); 
Asimismo podemos asignar el STRING vacío: 
NOMBRE := “ 


Las variables de tipo STRING pueden ser leídas por medio de READ y 
READLN. También se pueden utilizar con WRITE y WRITELN: 


PREGUNTA := “Cuál es el nombre “; WRITELN (PREGUNTA); 
READEN (NOMBRE); 


A 


Concatenación 


La concatenación consiste en empalmar dos o más variables de tipo 
STRING. Se expresa utilizando el signo +. Así, la secuencia de programa: 


NOMBRE := *PEPE;'; 
NOMBRE := NOMBRE + “ * + “LUIS '; 


hace que NOMBRE contenga el texto “PEPE LUIS*. 
Normalmente, datos de tipo CHAR son utilizables en estas instruccio- 


hb 


Z 


nes de concatenación. Sin embargo, sólo suele ser posible guardar un dato 
tipo STRING en una variable tipo CHAR si aquél tiene sólo un carácter. 

Si en algún momento se pretende guardar en una variable un texto de 
longitud mayor que la admisible, sólo se guardará del texto la parte que 
quepa. 


Comparación de strings 


Igual que con el tipo CHAR se podían comparar dos caracteres, suele 
ser posible comparar dos strings. 

Para ello, se comienza por comparar los primeros caracteres de ambos 
strings, y si fueran distintos el resultado de su comparación sería el que se 
tomaría como resultado final. 

Si fueran iguales se pasaría al siguiente, etc., hasta llegar al final de al- 
guno de los textos. En caso de igualdad de todos los caracteres compara- 
dos se supone «menor» al string más corto e iguales si la longitud coincide: 


“ASNO* es menor que 'BURRO:', 

“ASNAS' es menor que 'ASNO' (hubo que llegar al cuarto carácter), 

“ASNA' es menor que 'ASNAS*' (decidido por longitud), 

“ASNA' es igual que 'AS'+'N'+“A' y 

“* (el string vacío) es menor que cualquier otro. 

Como se ve, esto es directamente aplicable al proceso de ordenar alfa- 
béticamente textos; así, ordenando de menor a mayor los anteriores resul- 
taría: “, 'ASNA', 'ASNASS, 'ASNO'*, “BURRO”. La comparación se expresa 
como en los casos vistos hasta ahora: 


(NOMBRE > “PEREZ') dará TRUE para los nombres que se encuen- 
tren, alfabéticamente, por detrás de PEREZ y FALSE en caso contrario. 


Funciones para el tipo string 


Casi todos los compiladores disponen de funciones para el manejo de 
STRINGS. Aquí vamos a describir un posible conjunto de funciones: 


— LENGTH (NOMBRE) devuelve el número de caracteres (en tipo IN- 
TEGER): 


LENGTH (“*) vale 0 y 
LENGTH ('ASNO* + “S') vale cinco. 
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— POS (NOMBRE1,NOMBRE2) devuelve, en tipo INTEGER, la posi- 
ción en que comienza el texto NOMBREZ2 dentro del texto NOMBREI1, 
siendo 1 la posición del primer carácter: 


POS ('BURRO',RR)) vale 3 y 
POS ('ASNO “,Z*) vale O (no está). 


— COPY (NOMBRE)P,N) devuelve la parte de NOMBRE que empieza 
en el carácter número P con N caracteres: 


COPY ('PALABRA',3,4) vale 'LABR' y 
COPY ('PALABRA',6,4) vale “RA' 


(al excederse la longitud del texto, se trunca). 


Si, por ejemplo, la variable NOMBRE contuviera nombre y apellido se- 
parados por un espacio en blanco, 


COPY (NOMBRE, 1, POS(NOMBRE,' )-1) 


== COPY. (NOMBRE, POS(NOMBRE, A 
=== -EENG FRTNOMBES; POS(NOMBRE,*)) 


devolvería el apellido. 

Supongamos que NOMBRE vale 'PEPE PEREZ'. POS (NOMBRE) ) vale 
pues 5 y LENGTH (NOMBRE) 10, por lo que la primera expresión equiva- 
le a 


COPY (NOMBRE,1,4), es decir, 'PEPE' 


y la segunda a 


COPY (NOMBRE.6,5), o sea, 'PEREZ'. 
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Con vistas a la claridad del programa, resultaría mejor guardar previa- 
mente POS (NOMBRE/S “) en una variable de tipo INTEGER. 


>>> ==>" 


y utilizar luego P en las otras instrucciones. 

Estas funciones varían mucho de un compilador a otro, pero todos per- 
miten hacer más o menos las mismas operaciones que se han descrito. 

En cualquier caso, siempre podremos definir nuestras funciones, como 
se verá en otros capítulos. 

Las funciones PRED, SUCC, Y ORD no son aplicables al tipo STRING. 


EE TIPO BYTE 


Este tipo, existente sólo en algunos compiladores, es en la práctica un 
subrango 0..255 del tipo INTEGER. 

Su interés radica en que el tamaño de la porción de memoria necesa- 
rio es menor que en el tipo INTEGER. 

Se cumple además que SUCC (255) es 0 y que PRED (0) es 255. 
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TOMA DE DECISIONES 
Y BUCLES == 


ASTA ahora, todos los programas que hemos visto han 
consistido en una secuencia de instrucciones simples que 
se ejecutaban siempre empezando por la primera, de una 
en una, hasta llegar a la última. 

Si se desea construir programas más complejos, es ne- 
cesario tener la posibilidad de escoger qué grupos de ins- 
trucciones se desea ejecutar en un momento dado y la de 
repetir bloques de instrucciones. * 

A continuación describiremos las más importantes es- 
tructuras de control existentes en PASCAL. 


LA ESTRUCTURA IF 


Esta estructura permite decidir durante la ejecución de un programa 
si una instrucción dada se debe ejecutar o no según una cierta condición. 
Opcionalmente, es posible escoger entre dos instrucciones. Veamos un 
ejemplo: 


PROGRAM UNO; 

VAR N: INTEGER; 

BEGIN = 

VRITE ("Número cuyo cuadrado desea: ');  READLN (N); 


IF N<0 THEN WRITELN ('Ha notado que el número es negativo?” ); 
VRITELN (N,” al cuadrado = ”, SQR (N)); 


VRITELN ("Se acabó.” ) 
END. 


47 


La instrucción WRITELN (“Ha notado... ) sólo se ejecutará si N es me- 
nor que 0. Si traducimos del inglés: 


IF N<0 THEN WRITELN (Ha notado... 
“Si  N menor que 0 entonces WRITELN ('Ha notado...“ 


se ve claramente cómo es la estructura. 

Entre las palabras reservadas IF y THEN se escribe la condición, que 
debe dar un resultado de tipo BOOLEAN. Durante la ejecución del progra- 
ma, al llegarse a la estructura IF se evalúa la expresión lógica y, caso de 
que el resultado sea TRUE, se pasa a ejecutar la instrucción cuya ejecu- 
ción condicional se desea y que se encuentra tras la palabra THEN. Tras 
esto se sigue ejecutando lo que hubiera a continuación. 

Si el resultado fuera FALSE, se pasaría a ejecutar lo siguiente directa- 
mente. En definitiva: 


IF (condición) THEN (instrucción a ejecutar en caso de TRUE) 


El conjunto así formado es una instrucción en sí misma, aunque al es- 
tar compuesta de varias partes se dice que es una instrucción «estructura- 
da». Como tal instrucción, debe separarse de las que pudiera haber a con- 
tinuación por un punto y coma. 


Veamos otro ejemplo: 


WRITE ("Número cuyo cuadrado 


En esta otra variante de la estructura IF, sin embargo, se escoge entre 
dos posibles instrucciones según el resultado de la condición. 
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Tras la palabra reservada THEN se escribe aquélla que se desea ejecu- 
tar cuando el resultado de la condición ha sido TRUE. A continuación, y 
separada por la palabra reservada ELSE, se escribe la que hay que ejecu- 
tar en caso de ser FALSE el resultado. 

Sea cual sea el resultado de la condición, y tras ejecutarse la instruc- 
ción correspondiente, se continúa con la siguiente a la estructura. 

Una vez más, la traducción del inglés es clara: 


IF ABS(N) > 100 THEN — WRITELN (No... 
“Si valor absoluto de N mayor que 100 entonces WRITELN ('No... 
ELSE WRITELN (Nal ... 


en otro caso WRITELN (N/ al ...“ 


Nótese que tras la primera instrucción y antes de ELSE no hay ningún 
punto y coma; si lo hubiera, al llegar a él el compilador, supondría que es 
el final de una estructura IF del primer tipo, con lo que al llegar a la pa- 
labra ELSE se produciría un error. 

El conjunto formado por la condición, las dos instrucciones y las pala- 
bras reservadas IF, THEN y ELSE es, a su vez, una instrucción (estructu- 
rada, eso sí) y, por tanto, debe ir separada de la siguiente por un punto y 
coma. 

La condición a evaluar puede ser cualquier expresión que proporcione 
un resultado de tipo BOOLEAN, es decir, TRUE o FALSE. 

La instrucción (o instrucciones) cuya ejecución condicional se desea 
puede ser cualquiera que se nos ocurra, simple o estructurada. Entre éstas 
últimas se encuentra lo que se denomina secuencia de instrucciones. 


A 


Secuencia de instrucciones 


Una secuencia o bloque de instrucciones es un conjunto de instruccio- 
nes de cualquier tipo escritas una detrás de otra, separadas entre sí por 
punto y coma, y enmarcadas por las palabras reservadas BEGIN, para in- 
dicar el comienzo, y END, para indicar el final. Por ejemplo: 


La secuencia en sí misma es una instrucción estructurada y como tal 
el PASCAL es muy claro respecto a su uso: se puede poner en cualquier 
sitio en que pudiera figurar una instrucción simple. 


La ejecución de una secuencia consiste en ejecutar por orden las ins- 
trucciones que la integran. 


Utilizando secuencias en una estructura IF es posible, por tanto, deci- 
dir si se ejecutan o no grupos complejos de instrucciones. 
Veamos un ejemplo: 


PROGRAM TRES ; 
CONST 
ULTIMALETRA = 'E”; 
ULTIMOPISO = 15; 
VAR 
LETRA : CHAR; 
PISO : INTEGER; 


BEGIN 
WRITELN (* Introduzca el piso: *); READLN (PISO); 


IF (PISO <= 0) OR (PISO > ULTIMOPISO) THEN 


== BEGIN 
: WRITELN ('Piso erróneo. Tomaré el primero.”); 
PISO :=1- 
END; (* Aquí se acaba el conjunto IF...THEN... *) 


WRITELN (' Introduzca la letra del piso: “); READLN (LETRA); 


IF (LETRA < "A") OR (LETRA > ULTIMALETRA) THEN 

BEGIN : : 
VRITELN (“Letra errónea. Supongo la A.”); 
LETRA := 'A' 

END 

ELSE 
VRITELN (*Bravo, es una letra correcta.”); 
-(*% y aquí acabó el conjunto IF...THEN...ELSE... *) 


VRITELN (“El piso introducido es el *,PISO,'-",LETRA) 
END. 


(Nótese la indentación utilizada para hacer el programa más claro.) 
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Como la estructura IF en su conjunto es una instrucción estructurada, 
podría formar parte de una secuencia o ser incluso una de las instruccio- 
nes que forman parte de otra estructura IF. Por ejemplo, se podría escribir: 


IF (PISO > 0) AND (PISO <= ULTIMOPISO) THEN 


IF (LETRA >= 'A') AND (LETRA <= ULTIMALETRA) THEN : = 
WRITELN (“Piso y letra correctos.”) == 
ELSE 
WRITELN (“Sólo correcto el piso.” ); 


Nota: En estos casos, el compilador, cuando encuentra la palabra re- 
servada ELSE, supone que corresponde a la última estructura IF que no 
la tuviera todavía. Por ello, en este ejemplo lo que se tiene es una estruc- 
tura IF-THEN-ELSE dentro de otra IF-THEN. 


Si quisiéramos que ELSE correspondiera al primer IF (es decir, una es- 
tructura IF-THEN dentro de otra IF-THEN-ELSE), la solución sería: 


IF (PISO > 0) AND (PISO <= ULTIMOPISO) THEN 
BEGIN 
IF (LETRA >= "A') AND (LETRA <= ULTIMALETRA) THEN 
- WRITELN ("Piso y letra correctos.”) : 
ELSE 
VRITELN ("Piso erróneo. Ya, ni miro la letra.”); 


Utilizando una secuencia de una sola instrucción (lo que en principio 
podría parecer absurdo), las palabras BEGIN y END han hecho de «parén- 
tesis» para así forzar a que ELSE corresponda a la primera estructura IF. 
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LA ESTRUCTURA REPEAT 


Hay ocasiones en que se necesita repetir la ejecución de una cierta ins- 
trucción hasta que se cumpla una condición dada. Para ello se dispone de 
la estructura REPEAT. Empecemos con un ejemplo: 


== A TS OS ===>. 
== : == == BEGIN. == = Ñ — z 
=== A A AS 


== ÁS 
=== 2 


y UNTIL, la instrucción a repetir escrita entre ellas, y, en último lugar, la 
condición por la que se debe terminar con las repeticiones y pasar a lo si- 
guiente. 

Durante la ejecución del programa, al llegarse a la estructura REPEAT, 
se ejecuta la instrucción que alberga, tras lo cual se pasa a evaluar la con- 
dición que hay tras la palabra reservada UNTIL. Si el resultado es TRUE, 
se pasa a lo que hubiera a continuación, pero si fuera FALSE, se volvería 
a ejecutar la instrucción anterior y a evaluar la condición, etc., hasta que 
en algún momento, por fin, el resultado fuera TRUE. 

Por tanto, la primera vez que se ejecuta la instrucción N:=N+1, N, que 
valía 0, pasa a valer 1. Tras eso, el resultado de la expresión N > 100 es, 
por supuesto, FALSE, con lo que se volvería a ejecutar N:=N+1 (N valdrá 
entonces 2), a evaluar N > 100, etc. 

Por fin, llegará un momento en que N valdrá 100; tras ejecutarse 
N:=N+1 valdrá 101 y entonces al evaluarse N > 100 el resultado será 
TRUE, con lo que se pasará a la instrucción WRITELN que hay a conti- 
nuación. Traduciendo del inglés resulta todo muy claro: 


REPEAT N:=N+1 UNTIL N > 100; 
“Repetir N:=N+1 hasta que N mayor que 100“ 


La instrucción a repetir puede ser cualquiera, simple o estructurada. 

Cuando la instrucción es una secuencia, como aquí hay dos palabras 
reservadas, REPEAT y UNTIL, por delante y detrás de ella, no hace falta 
poner BEGIN y END para delimitarla. Por tanto, la o las instrucciones a 
repetir se escriben una detrás de otra separadas por punto y coma entre 
las palabras REPEAT y UNTIL. Si en el programa anterior cambiáramos la 
estructura REPEAT a: 


en la pantalla aparecerían 0, 1, 2, ... hasta 100. 


3) L 


A las situaciones en que un conjunto de instrucciones se repite una y 
otra vez se les llama «bucles de programa». 

La condición de salida del bucle (o sea, la que decide si hay que seguir 
repitiendo o no) puede ser cualquier expresión que dé un resultado de tipo 
BOOLEAN. 

El conjunto formado por la palabra REPEAT, la o las instrucciones, la 
palabra UNTIL y la expresión lógica es a su vez una instrucción estructu- 
rada y, por tanto, se le aplica todo lo dicho hasta el momento sobre éstas. 


Podemos ahora perfeccionar el programa TRES de este capítulo: 


PROGRAM TRESMEJOR ; 


CONST- 
ULTIMOPISO = 15 ; ULTIMALETRA = 
VAR 
PISO : 1..ULTIMOPISO; : : == == 
LETRA: “A”... ULTIMALETRA; : - : === 
VALE : BOOLEAN ; : : == 
I-—: INTEGER; 
E + CHAR; = 


PEN z == EZ 
(A Repetir E del piso hasta que sea correcto: ZR 
REP ==> 

gEnE A E piso: == READLN mm === 
(1 >0) AND (1 <= ULTIMOPISO); = 
en "NOT VALE THEN -WRITELN ("Piso incorrecto.') == 
== ELSE PISO : y : 1 e si es OS lo LE = === 
UNTIL VALE; —————— - == 


(* Lo mismo con la. e *) 
REPEAT z === = 
VRITELN (' Introduzca letra: *); READLN (C); A ANA 
VALE := (C >= 'A') AND (C <= ULTIMALETRA); . == 
J1F "NOT VALE THEN WRITELN ("Letra incorrecta.” ) = == 
—ASELETRA == C — == === 

UNTIL VALE; A 

- WRITELN ("El piso introducido es el ”,PISO,”-",LETRA) = 
END. = = = == 


Gracias a las estructuras REPEAT, se pedirán el piso y la letra una y 
otra vez, hasta que sean correctos. 

Nótese el uso de la variable VALE; como la corrección del piso y letra 
hay que analizarla para avisar en su caso (estructura IF), guardamos el re- 
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sultado de la prueba en VALE para así no tener que repetir la comproba- 
ción tras UNTIL. 

Hay que tener en cuenta dos importantes aspectos de la estructura RE- 
PEAT: 


1. Si el bloque de instrucciones a repetir no afectara para nada a la 
condición de salida, podríamos tener un «bucle infinito»: 


PROGRAM CUATROMALO1; 
VAR N ,J : INTEGER; 
BEGIN 
N:=0; 
J:=0; 
REPEAT 
VRITELN (N); 
N:=N+1 
UNTIL  J=100; 
WRITELN ('Se acabó.') 
END. 


La condición de salida (J=100) nunca se cumple y por más que se re- 
pitan una y otra vez las dos instrucciones del bucle, nunca se cumplirá, 
con lo que la ejecución del programa no avanzará nunca: tenemos un bu- 
cle infinito. (Por cierto, si en algún momento se deseara tener un bucle in- 
finito deliberadamente, lo mejor es escribir REPEAT ... UNTIL FALSE.) 

2. La condición de salida (la expresión BOOLEAN) se evalúa tras la 
ejecución de la o las instrucciones del bucle. Por ello, aunque su valor fue- 
ra TRUE ya desde un principio, siempre se ejecutarán las instrucciones al 
menos una vez: 


- PROGRAM CUATROMALO2; 
VAR N: INTEGER; 
BEGIN 
= - N:= 1000; 


REPEAT 
= VRITELN (N); 
=== - N:=N+1 = 
E UNTIL N > 100; - 
=== VRITELN (*Se acabó.”) 
== == == 


Este programa escribirá 1000 en pantalla. 
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Para los casos en que se deba comprobar la condición de salida AN- 
TES de ejecutar las instrucciones del bucle se dispone de la estructura 
WHILE, que veremos a continuación. 


=—— LA ESTRUCTURA WHILE 


Esta estructura es similar a la instrucción REPEAT, con dos diferencias: 


1. La expresión que controla si se debe seguir con las repeticiones o 
no, se evalúa ANTES de ejecutar las instrucciones del bucle. 

2. Se sale del bucle cuando la condición deja de cumplirse, es decir, 
cuando el resultado de la expresión de control es FALSE. 


Veamos un ejemplo: 


PROGRAM CINCO; 

VAR N: INTEGER; 

BEGIN : 
N:=0; - == 


WHILE N <= 100 DO 
BEGIN 
VRITELN (N); 
N:= N+1 - 
END; (* Aquí se acaba la estructura WHILE *) 
WRITELN ('Se acabó. ”) 
END. 


Una vez más, la traducción del inglés resulta clarificadora: 


WHILE N <= 100 DO ss 
“Mientras N menor o igual que 100 hacer (la instrucción) 


Es decir, entre las palabras reservadas WHILE y DO se escribe la con- 
dición de control (una expresión cuyo resultado sea de tipo BOOLEAN) y 
tras todo ello, la instrucción a repetir, que puede ser cualquiera, estructu- 
rada o no (en el ejemplo es una secuencia). 

Durante la ejecución del programa, al llegarse a una estructura WHI- 
LE se evalúa la condición, y si el resultado fuera TRUE se pasaría a ejecu- 
tar la instrucción a repetir. Tras ello, se volvería a evaluar la condición y 
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a ejecutar la instrucción caso de que el resultado hubiera sido nuevamen- 
te TRUE, etc., hasta que llegara un momento en que el resultado fuera FAL- 
SE, en cuyo caso se continuaría la ejecución del programa con la instruc- 
ción que hubiera a continuación de la estructura. 

Por ello, si en el ejemplo se cambiara la instrucción N:=0 por N:=1000, 
nunca se llegaría a ejecutar el bucle, pues ya la primera vez el resultado 
de la condición sería FALSE. 

Nuevamente la estructura en su conjunto es toda ella una instrucción 
estructurada. 

Nota: Si se desea profundizar en estas cuestiones se puede observar 
que la instrucción WHILE equivale a una combinación de IF y REPEAT: 


- WHILE condición DO instrucción 


(«mientras se dé la condición, haz la instrucción») equivale a: 


== ARA IF condición THEN — 
=== = -— REPEAT = 


2 = === ——Amstracción--= 
: - “UNTIL NOT condición 


(o sea, «si se da la condición, repite la instrucción hasta que no se dé»). 
Para terminar, veamos un programa que calcula y presenta las poten- 
cias de dos, menores que un número dado. 


- PROGRAM POT2; 
VAR ON, TOPE . : INTEGER; ERROR, HAYMARGEN: - BOOLEAN; 
BEGIN = 
== N:=2; == (0% 2 es la primera potencia X) 
(* Pedir límite hasta que sea correcto: *) 
REPEAT 


WRITE (” Límite: *); READLN (TOPE); 

ERROR := (TOPE < 0); (* Error si límite negativo *) 
-— 1F ERROR THEN WRITELN ("No vale. Repita.*) 
UNTIL NOT. ERROR; 


 HAYMARGEN:=TRUE; 


WHILE (N <= TOPE) AND HAYMARGEN DO- 
BEGIN 
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== WRITELN (N:6); = 
= HAYMARGEN:= (N <= MAXINT DIV 2); 
= - IF HAYMARGEN THEN N:=N*2 = 
= (* cada potencia es igual al doble de la anterior -*) 
: Eno; 6 : 
VRITELN ('Se acabó. ”) 
END. 


Se ha utilizado la variable HAYMARGEN para evitar calcular un valor 
que se salga de los límites admitidos para los números enteros. 


== LA ESTRUCTURA FOR 


En el programa CUATRO de este capítulo se repetía una instrucción un 
número preestablecido de veces por medio de una estructura REPEAT y 
la utilización de la variable N como “contador de programa”. 

Es tan habitual tener que repetir instrucciones o bloques de instruccio- 
nes un número fijo de veces, que el PASCAL dispone de una estructura es- 
pecífica para ello: la estructura FOR. 

Con ella el programa CUATRO (en la versión que escribía los diferen- 
tes valores de N) quedaría: 


PROGRAM CUATROCONFOR; 

VAR N: INTEGER; 

BEGIN 

FOR N:=0 TO 100 DO WRITELN (N); 


VRITELN ("Se acabó.”) 
END. 


La estructura es la siguiente: 


- FOR (contador) := (primer valor) TO (último valor) DO (instrucción) 


Tras la palabra reservada FOR, se escribe la expresión de asignación 
del primer valor al contador de programa; tras ello siguen la palabra re- 
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servada TO, el último valor que tomará el contador, la palabra DO y, por 
fin, la instrucción a repetir, simple o estructurada. 

Al ejecutarse el programa, cuando se llega a una estructura FOR, al con- 
tador de programa se le asigna el primer valor. Tras ello se ejecuta la ins- 
trucción y el contador pasa a tomar el siguiente valor de manera automá- 
tica, volviéndose a ejecutar la instrucción nuevamente y a variar el conta- 
dor, etc., hasta que, por fin, la instrucción se ejecuta teniendo el contador 
el valor especificado como último, momento tras el cual se pasa a ejecu- 
tar lo siguiente a la estructura. 

Traduciendo del inglés: 


FOR N:=0 TO 100 DO WRITELN (N) 
“Para  Niigual 0 hasta 100 hacer WRITELN (N)“ 


Para especificar los valores inicial y final se puede utilizar cualquier ex- 
presión que proporcione un resultado del mismo tipo que la variable uti- 
lizada como contador. 

Aspectos importantes: 


— El valor final se calcula al llegarse a la estructura FOR; por ello, si 
alguno de los elementos de la segunda expresión cambiara durante alguna 
de las repeticiones del bucle, el valor final no se vería afectado. Por ejem- 
plo, si N y TOPE son variables INTEGER: 


TOPE:= 10; 
FOR N:=0 TO TOPE DO TOPE:=TOPE +1 


TOPE pasará de valer 10 a valer 11, 12, etc., pero la instrucción del bucle 
sólo se repetirá para N valiendo desde O hasta 10. 

— Si el valor final fuera anterior al inicial, no se ejecutarían ni una vez 
las instrucciones del bucle: 


TOPE :=5; 
FOR N:=10 TO TOPE DO WRITELN (N); 


Así, N no se llega a escribir nunca (es decir, la comprobación de llegada 
al valor final se hace antes de ejecutarse la instrucción). 

La variable de control no puede ser de cualquier tipo. Sólo el tipo IN- 
TEGER y aquellos otros que tienen asociados números ordinales son ad- 
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misibles (junto con sus posibles subrangos), es decir, aquellos tipos cuyos 
posibles valores están ordenados y con los que se pueden usar las funcio- 
nes PRED, SUCC y ORD. Por ahora sólo hemos visto el tipo CHAR (y el 
BOOLEAN). Podríamos, por tanto, escribir: 


PROGRAM ABC; = S 
VAR C:CHAR; === = 
BEGIN = - 

FOR C:= *A' TO *Z* DO WRITE (C) 
END. 


O 
E] 


Este programa nos escribiría el abecedario. 

Existe una forma alternativa de la estructura FOR para cuando se de- 
sea que la variable de control vaya cambiando de valor en orden inverso 
al normal. Consiste en usar la palabra reservada DOWNTO en lugar de TO. 

En el programa CUATROCONFOR podríamos poner: 


FOR N := 100 DOWNTO 0 DO WRITELN (N) 


OT 


y se escribiría en pantalla 100, 99, 98, ... hasta 0. 
La traducción del inglés sería : 


«Para N igual 100 para abajo hasta O hacer ...» 


MITIN 


El segundo aspecto antes mencionado es aquí el inverso. Con: 


MINTERINANA 


yl 


FOR N:=0 DOWNTO 10 DO WRITELN (N) 


no se llegaría a escribir nada. 
Igualmente podríamos hacer con el tipo CHAR: 


PROGRAM CBA; 
VAR C: CHAR; 
BEGIN = : = 
FOR C:= *Z” DOWNTO “A” DO WRITE (C) — 


VITUIITNI ONO 


ANA: 
' 


MT 


1 
| 
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La estructura FOR es a su vez una instrucción estructurada y, por tan- 
to, podría formar parte de la instrucción a repetir en otra estructura FOR: 


— PROGRAM DOBLEFOR; 
(* Este == saca todas las esmbinaciones de piso y letra *) 


FOR PISO :=1 TO ULTIMOPISO DO 
BEGIN 
WRITELN; 
WRITELN('En el piso ”,PISO,” tenemos: *); 
FOR LETRA:= *A” TO ULTIMALETRA DO WRITE  (PISO:4,”-” LETRA); 
VRITELN 


Por último, dos advertencias y un consejo dirigidos fundamentalmente 
a los amantes del BASIC: 


— No se debe cambiar el valor de la variable de control mediante una 
instrucción de asignación (o READ o READLN) dentro del bucle; podrían 
suceder cosas imprevistas. Por tanto, NO se deben hacer cosas como: 


FOR N:=0 TO 100 DO. 
BEGIN 


— El valor del contador de programa al acabar de ejecutarse la estruc- 
tura FOR puede que sea el siguiente al especificado como final, pero pue- 
de que no; depende de cada compilador en concreto. 

— El único tipo de contador numérico admitido es el INTEGER, y ade- 
más sólo se admiten incrementos de 1 (o de -1 con DOWNTO). Por ello, 
lo mejor para cuando se desean variaciones distintas de la unidad es utili- 
zar una estructura REPEAT o WHILE: 


R: =PRIMERVALOR : = 
= REPEAT ... ; ... ; R:=R+INCREMENTO UNTIL R > ULTIMOVALOR; 
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DISEÑO DE UN PROGRAMA dí 


HORA que ya conocemos las principales estructuras de 
control del PASCAL, resulta posible escribir programas 
- que hagan tareas más complicadas. 


Como ejemplo de ello, vamos a desarrollar uno para 
calcular todas las posibles maneras en que un número en- 
tero puede ser descompuesto como producto de otros dos. 
Por ejemplo, el número 60 puede descomponerse como 2 
- por 30, 3 por 20, 4 por 15, etc. 


En primer lugar, si deseamos descomponer no uno, 
sino varios números, tendremos que utilizar alguna estructura de bucle 
para poder repetir los cálculos varias veces. Podríamos escribir el progra- 
ma para que procese una cantidad fija de números, en cuyo caso utiliza- 
ríamos una estructura FOR, pero parece más útil poder procesar todos los 
que se quiera hasta que se indique al ordenador que ya no se desea seguir 
adelante. 


Para indicar esto, una forma muy sencilla podría ser dar el número 
cero cuando se pida un nuevo número para procesar. Entonces tendría- 
mos que usar estructuras como 


WHILE NUMERO<>0DO ... o 
REPEAT ... UNTIL NUMERO=0 


Como ya se vio en su momento, en la instrucción REPEAT la compro- 
bación para salir del bucle se hace después de ejecutarlo; en nuestro caso 
no deseamos procesar el número cero, pues no se puede descomponer de 
ninguná manera y, por tanto, usaremos una estructura WHILE. 
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Estamos ya en condiciones de escribir un boceto del programa: 


1. Leer primer número. 

2. Mientras (while) el número sea distinto de cero hacer: 
— Procesar y sacar resultados. 
— Leer siguiente número. 

3. Mostrar en pantalla mensaje de despedida. 


Resulta evidente cómo programar los puntos 1 y 3, pero, sin embargo, 
lo de «procesar» en el punto 2 es más complejo. 

Decir que, por ejemplo, 60 se puede descomponer como 5 multiplica- 
do por otro número entero equivale a decir que si dividimos 60 por 5 el 
resultado exacto es precisamente ese número entero (así, como 60 entre 
8 es 7,5, 60 no se puede descomponer como 8 por otro entero). 

Por tanto, una forma de obtener todas las posibles descomposiciones 
es probar para todos los factores posibles si la división exacta da un nú- 
mero entero o, en otras palabras, probar si al hacer la división sin decima- 
les el resto sale cero. El factor más pequeño a considerar es el 2, cuyo fac- 
tor correspondiente (el mayor posible) será NUMERO DIV 2. 

Puede resultar que el número en cuestión no se pueda descomponer 
como producto de ningún par de factores enteros; en ese caso se dice que 
el número es PRIMO. Podemos entonces preparar el programa para que 
avise cuando el número sea primo. Para ello lo más fácil es anotar al prin- 
cipio en algún sitio que el número es primo, y si después se encuentra al- 
guna manera de descomponerlo, se tacha la anotación; si, tras haber pro- 
bado todos los posibles factores, la anotación permaneciera intacta, el nú- 
mero sería primo. 


Un boceto del contenido del bucle WHILE podría ser, por tanto: 
2A. Anotar qué NUMERO es primo. 
2B. Para FACTOR valiendo desde 2 hasta NUMERO DIV 2 hacer: 
Si NUMERO dividido por FACTOR es un número 
entero, entonces: 
— Presentar FACTOR y NUMERO DIV FACTOR. 
— Tachar la anotación de que NUMERO es primo. 
2C. Si todavía está la nota, avisar que NUMERO es primo. 
2D. Leer siguiente número. 


Resulta evidente la presencia de estructuras FOR e IF. 
Podemos pasar ya a escribir el programa en PASCAL: 


PROGRAM FACTORES; 
(* Programa para descomponer un número en dos factores *) 


62 


VAR NUMERO, FACTOR: INTEGER; 


PRIMO : BOOLEAN; 
BEGIN 
VRITELN (* Introduzca número a descomponer (0 para acabar).”); 
READLN (NUMERO); NUMERO: =ABS(NUMERO) ; (* punto 1 *) 
WHILE (NUMERO<>0) DO (* punto 2 *) 
BEGIN 
PRIMO: =TRUE; - (* punto A *) 
FOR FACTOR:=2 TO NUMERO DIV 2 DO (* punto B *) 
IF (NUMERO MOD FACTOR = 0) THEN (* Si el resto es 0 *) 
BEGIN : 
WRITELN (FACTOR:5,” por ” NUMERO DIV FACTOR: 6); 
PRIMO: =FALSE 
END; 
IF PRIMO THEN WRITELN ('Este número es primo.”);  (* C *) 
== VRITELN; 
=z WRITELN (' Introduzca número a descomponer.” ); 
; READLN (NUMERO); NUMERO: =ABS(NUMERO) (* D*) 
END; 
YRITELN (*ADIOS, HASTA LA PROXIMA. *) (* punto 3 *) 


END. 


En el programa se ha tomado la precaución de hacer que NUMERO 
sea siempre positivo (NUMERO:=ABS(NUMERO)) pues si, por ejemplo, va- 
liera -12, tendríamos la instrucción: 


FOR FACTOR:=2 TO -6 DO ... 


que, como sabemos, hace que el bucle no se ejecute ni una vez, pues ha- 
bría que usar DOWNTO en lugar de TO. 

El desarrollo que se ha hecho de este programa, descomponiéndolo en 
tareas más sencillas, éstas a su vez en otras, y así hasta llegar a unas que 
sean fácilmente convertibles en instrucciones de programa, hace que la po- 
sibilidad de error disminuya mucho. No obstante, es necesario probar el 
programa para garantizar su correcto funcionamiento; siempre queda la 
posibilidad de que casualmente aquello que no hayamos probado sea lo 
que falle, pero escogiendo adecuadamente las pruebas se puede hacer que 
esa probabilidad sea pequeña. 

Así, conviene probar el programa para los casos un poco especiales 
como cuando NUMERO vale 0, en que no se calcula nada y se acaba la eje- 
cución del programa, 1,2 y 3, en que el bucle FOR no se ejecuta ni una 
vez, algún número negativo, etc. 
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El hecho de que este programa detecte cuando un número es primo su- 
giere su adaptación para obtener todos los números primos hasta un máxi- 
mo dado. Un boceto podría ser: 


1. Leer MAXIMO. 
2. Para NUMERO valiendo desde 1 hasta MAXIMO hacer: 


— Procesar. 
— Si NUMERO es primo, mostrarlo. 


3. Mostrar en pantalla mensaje de despedida. 


«Procesar» sería similar al anterior pero sin mostrar los factores. El pro- 
grama definitivo quedaría: 


- PROGRAM PRIMOS; : 

* Programa para obtener números primos *) 

VAR MAXIMO, NUMERO, FACTOR: INTEGER; 
PRIMO : BOOLEAN; 


BEGIN 
VRITELN (' Introduzca limite (máximo=",MAXINT,”).”); 
READLN (MAXIMO); MAXIMO: =ABS(MAXIMO) ; 
FOR NUMERO: =1 TO MAXIMO DO 
BEGIN == == 
PRIMO: =TRUE; = = == 
FOR FACTOR:=2 TO NUMERO DIV 2 DO - 
IF (NUMERO MOD FACTOR = 0) THEN PRIMO: =FALSE; 
IF PRIMO THEN WRITE (NUMERO:8); - 
VRITELN:; 
WRITELN (* ADIOS, HASTA LA PROXIMA. * ) 
END. 


A medida que los números van siendo mayores, el tiempo para proce- 
sarlos aumenta rápidamente. Este método de obtención de primos es poco 
eficiente; existen otros métodos mucho más eficaces (e incluso éste mis- 
mo es posible mejorarlo bastante), pero todo eso escapa del alcance de 
este libro. 
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EL TIPO REAL 6 


L tipo REAL es el utilizado para manejar números que pue- 
dan ser no enteros o fuera de los límites establecidos para 
los de tipo INTEGER. 

Siempre que tratemos con números muy grandes o 
con decimales habrá que acudir, pues, al tipo REAL. 

En los demás casos conviene utilizar el tipo INTEGER 
pues precisa menor cantidad de memoria y se procesa a 
mayor velocidad. 


PRECISION Y MAGNITUD 
DE LOS NUMEROS DE TIPO REAL 


UN 


Los números reales se guardan en memoria descomponiéndolos en dos 


números sin decimales. 

Por ejemplo, como 123400000 es igual que 0,1234 multiplicado por 10 
elevado a 9 (o sea, por 1000000000, un 1 y 9 ceros), podríamos guardar 
por un lado 1234 y por otro 9. 


1234 es lo que se llama la MANTISA y 9 el EXPONENTE. 
Más ejemplos: 
-395,37 es igual a -0,39537 por 1000, luego se guardaría -39537 y 3 


0,000734 es igual a 0,734 dividido entre 1000; en este caso se guardaría 
734 y -3, indicando el exponente negativo que lo que hay que hacer para 
obtener el número es dividir la mantisa por un 1 y tantos ceros como in- 
dique el valor absoluto del exponente. 
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Es decir, se corre la coma tantos lugares como sea necesario para que 
el valor absoluto del número quede lo más próximo posible a 1 pero por 
debajo, y a eso se le llama mantisa. Al número de posiciones que se haya 
tenido que correr se le llama exponente, indicando su signo para dónde 
hubo que correr la coma. 

En la práctica, la forma de guardar los números de tipo REAL es lige- 
ramente distinta pues los ordenadores utilizan números binarios, esto es, 
con ceros y unos solamente, pero el fundamento es el mismo. Por supues- 
to, todo esto se hace de manera automática sin que nosotros nos entere- 
mos. A este sistema de almacenamiento en memoria se le denomina de 
«coma flotante». 

Como consecuencia de esta forma de guardar los números de tipo 
REAL suceden varias cosas: 


1. Cada número REAL se descompone en DOS números y, por tanto, 
no pueden tener números ordinales asociados. Así, las funciones PRED, 
SUCC y ORD no se pueden aplicar a valores REAL, ni se pueden utilizar 
variables REAL para controlar bucles FOR. 

No obstante, SI es posible comparar valores REAL como se hacía con 
los INTEGER. 


2. Los dos números en que se descomponen, o sea, la mantisa y el ex- 
ponente, tienen límites que dependen de cada compilador: 


— La limitación de la mantisa supone una disminución de la precisión 
con que se pueden guardar los números. Si pretendiéramos guardar, por 
ejemplo, el resultado de dividir 100 entre 3, que vale 33,333... con infini- 
tos treses, en la memoria quedaría: 


33,3333333... = 0,3333333... por 100 


ahora bien, si la mantisa pudiera tener como máximo 4 cifras, sólo podría- 
mos guardar 3333 y 2 que, en realidad, es lo que corresponde a 33,33. 

Esto es lo que se denomina error de redondeo. Así, si dividiéramos 100 
entre 3 y lo multiplicáramos luego por 3 obtendríamos 99,99 en lugar de 
recuperar el valor original de 100, que es lo esperable en principio. 

Esta situación, debido al uso de números binarios, se puede dar con nú- 
meros que aparentemente no necesiten muchas cifras, pues, por ejemplo, 
aunque 0,2 sólo necesita una cifra, en binario 0,2 se escribe como 
0,001100110011... 

Por todo esto, es peligroso comparar dos números reales para ver su 
igualdad, pues debido al error de redondeo, números que esperábamos 
que fueran iguales pueden resultar distintos. 
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Normalmente se pueden esperar al menos 7 u 8 cifras de precisión. 
Esto se debe consultar en el Manual. 


— La limitación del exponente supone, por un lado, una límite para la 
magnitud de los números REAL que se puedan guardar en memoria. Por 
ello, si el máximo exponente fuera 37 (caso corriente), el número 
1273400...(hasta 50 ceros), igual a 0,12734 por 10 elevado a 55, estaría fue- 
ra de rango. 


Por otro lado, supone que los números muy pequeños se redondearán 
a cero al ser guardados en memoria. Por ejemplo: 


0,00...(50 ceros)...1254 es igual a 0,1254 entre 10 elevado a 50 


y si el límite inferior fuera -37, el número se guardaría como un cero. 


CONSTANTES Y VARIABLES 
DE TIPO REAL 


Como se puede imaginar, las constantes de tipo REAL deben ser clara- 
mente diferenciables de las de tipo INTEGER para que el compilador sepa 
cómo guardarlas en memoria. 

Si para utilizar en expresiones de tipo REAL necesitáramos un valor, 
por ejemplo, 15, no podríamos escribirlo tal cual, pues parecería IN- 
TEGER. 

Para distinguirse, las constantes REAL deben tener punto decimal o ex- 
ponente o ambos (en inglés, para separar las cifras decimales de las de- 
más se utiliza un punto en lugar de una coma). El exponente se separa del 
resto del número por medio de la letra E. Veamos unos ejemplos: 


15.0 DEBE haber cifras a ambos lados del punto. 
3E3 3E3 significa 3 por 10 elevado a 3, o sea, 3000. 
-3.17E-4 Equivale a -3,17 entre 10000, o sea, -0,000317. 


0.3333333333333 Como ya hemos mencionado, probablemente no se 
utilizarán todas la cifras. 


Las constantes REAL, como las INTEGER, pueden declararse al prin- 
cipio del programa: 


Esta constante en concreto se encuentra ya definida con este mismo 
nombre en muchas versiones de PASCAL. También las variables se defi- 
nen como las INTEGER, pero usando la palabra reservada REAL: 


Sin embargo, y debido a la carencia de ordinales, no se pueden definir 
subrangos. 
La asignación de datos a una variable se hace de manera análoga: 


Si escribiéramos, por ejemplo, PESO:= 60, al ser 60 una constante de 
tipo INTEGER, como la variable de destino es REAL se tiene que producir 
una transformación de la forma en que se guarda el número 60 (sin que 
nosotros nos apercibamos de ello). Esto se lleva tiempo de cálculo, por lo 
que es conveniente ser metódico y escribir constantes reales siempre que 
corresponda. 


EXPRESIONES REAL 


Las expresiones de tipo REAL son aquéllas en que aparecen constan- 
tes, predeclaradas o no, ye variables de tipo REAL combinadas entre sí me- 
diante los operadores + ,-,*y/. 

El operador DIV sólo es aplicable al tipo INTEGER, pero en su lugar 
aquí se tiene el operador / para hacer divisiones, ahora sí, con decimales. 

El orden de cálculo es similar al de las expresiones INTEGER. 


100.0 * (37.0 - 4.5) / 2.0 dará el resultado REAL 1625.0. 


En una expresión REAL pueden aparecer constantes o variables INTE- 
GER, cuyo valor es convertido a tipo REAL automáticamente antes de ser 
utilizado. 
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En expresiones como: 


donde I fuera una variable o constante entera, aunque todos los términos 
son INTEGER , al descubrirse durante el cálculo el operador / , como es 
exclusivo de los REAL, se pasa a utilizar el tipo REAL, y el resultado será 
REAL. 

Este cambio sobre la marcha puede dar lugar a situaciones curiosas 
que deben ser analizadas con cuidado. Por ejemplo, la expresión: 


1000 * 1000 / 10000. 


aunque su resultado es 100, como se empieza a calcular por la izquierda, 
produce un error, pues 1000 (INTEGER) por 1000 (INTEGER) da un valor 
fuera de rango, ya que todavía no se ha descubierto que es una expresión 
REAL. Si escribiéramos : 


1000 / 10000 * 1000 o 1000 * 1000.0 / 10000 etc. 


se resolvería el problema, pues antes de hacer ninguna operación se pasa- 
ría a utilizar el tipo REAL. 


=== CONVERSION DE VALORES 


== REAL A INTEGER 


Ya se ha visto que la conversión de INTEGER a REAL se produce de 
manera automática; por ello, si I fuera una variable o constante INTEGER 
cuyo valor quisiésemos guardar en la variable REAL R, bastaría con escri- 
bir R:=1. 
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Sin embargo, a la inversa hay que definirlo de manera explícita para 
así poder elegir entre dos posibles modos de conversión: 


— La función ROUND (R), donde R es una variable, constante o ex- 
presión REAL, da un resultado INTEGER lo más próximo posible al valor 
de R: 


ROUND (14.28) equivale a poner 14 y 
ROUND (14.59) equivale a poner 15, 


de ahí su nombre (“redondea”). 


— La función TRUNC (R) da un resultado INTEGER igual al número 
entero más cercano por debajo: 


TRUNC (7.3) es igual a 7 y 
TRUNC (7.99) también. 


Por supuesto, si el valor resultante estuviera fuera de los límites INTE- 
GER admisibles se produciría un error. 

Nótese que ROUND (R) es igual a TRUNC (R+0.5). 

Si quisiéramos calcular la división de dos variables REAL sin obtener 
decimales y guardar el resultado en una variable INTEGER escribiríamos: 


I:= TRUNC (A/B) o bien I:= ROUND(A) DIV ROUND(B) 


(estas expresiones no siempre darán el mismo resultado). 


FUNCIONES DE LIBRERIA 


El PASCAL proporciona varias funciones matemáticas predefinidas. 
Como tales funciones, el parámetro o valor del cual se quiere obtener la 
función se debe escribir entre paréntesis a continuación del nombre de la 
función. Devuelven un valor de tipo REAL y, por tanto, se pueden incor- 


a 


O 


porar a cualquier expresión de este tipo. Por supuesto, el parámetro pue- 
de ser una expresión REAL cualquiera. Son las siguientes: 


FUNCION SIGNIFICADO ejemplos 
(*) ABS valor absoluto ABS (3.5) es igual a 3.5 
(*) SOR cuadrado SQR (2.0) es igual a 4.0 
SQRT raíz cuadrada SQRT (6.25) es igual a 2.5 
EXP exponencial EXP (1.0) es igual a 2.718281 
LN logaritmo natural LN (1.0) es igual a 0.0 
SIN seno SIN (PI/2.0) es igual a 1.0 
Cos coseno COS (PI) es igual a -1.0 
ARCTAN arcotangente ARCTAN (1.0) es igual a PI/4.0 


Se pueden producir errores durante el cálculo de algunas de estas fun- 
ciones si el valor del parámetro se sale de los límites establecidos para 
cada función: 


SQRT (-2.0) no es calculable. 


Una protección en este caso sería escribir SORT (ABS(R)), donde R fue- 
ra la variable, constante o expresión REAL cuya raíz cuadrada se quisiera 
obtener. 

El parámetro puede ser de tipo INTEGER, pues éste se convertirá au- 
tomáticamente en REAL, excepto en las funciones marcadas con (*), que 
proporcionan un resultado del mismo tipo que el parámetro. 


EXPRESIONES CON VALORES 
REAL QUE DAN RESULTADO BOOLEAN 


Al igual que con el tipo INTEGER, éstas son las comparaciones: 


1 


Debe tenerse en cuenta el comentario anterior sobre las comparacio- 
nes de igualdad y desigualdad: 


ss dar como resultado FALSE (y usando <> podría dar y TRUE). 


Zi 


Una forma de arreglar esto puede ser poner como condición de igual- 
dad de dos valores el que su diferencia sea menor que una cierta cantidad: 


donde A y B son los valores a comparar. 

Normalmente los compiladores admiten comparar valores de tipo 
REAL con valores de tipo INTEGER, pues éstos son convertidos a REAL 
antes de hacer la comparación. 

A diferencia del tipo INTEGER, y debido a la carencia de ordinales, no 
existe la función ODD para el tipo REAL. 


ENTRADA Y SALIDA 
== DE DATOS DE TIPO REAL 


Las variables REAL pueden tomar el valor que se introduzca desde te- 
clado por medio de las instrucciones READ y READLN, que se utilizan de 
la misma manera que con las variables INTEGER. Valores tecleados acep- 


Como ejemplo veamos una forma de evitar que al leer una variable de 
tipo INTEGER se pueda producir un error por salida de rango. Utilizare- 
mos una variable REAL para recoger el número tecleado y sólo lo trans- 
feriremos a la de tipo INTEGER tras haber comprobado que tiene un va- 
lor aceptable: 


Por supuesto, también sería posible teclear un número fuera de rango 
incluso para una variable REAL, pero es poco probable que se hiciera por 
equivocación. 

La presentación por pantalla se hace igual que con los valores INTE- 
GER. Los valores REAL se presentan en notación exponencial, esto es, es- 
cribiendo mantisa y exponente separados por la letra E. No obstante, es po- 
sible presentarlos con aspecto «normal». Para ello, a continuación de la ex- 
presión REAL se indica el número de espacios a ocupar y el número de 
cifras decimales a presentar separados por dos puntos. Por ejemplo: 


PROGRAMA DE EJEMPLO 


El programa de ejemplo que se hizo en el capítulo anterior tenía, entre 
otros, el inconveniente de que podía presentar parejas de factores repeti- 
das. Así, el número 16 se podría descomponer, según ese programa, en 2 
por 8, 4 por 4 y 8 por 2, sin tener en cuenta que, realmente, 2 por 8 es la 
misma descomposición que 8 por 2. 

Para evitar esto, habría que explorar sólo las parejas en que el primer 
número fuera menor o igual que el segundo. 

Dado un número cualquiera, la pareja de factores en que los dos son 
iguales es aquélla en que éstos son la raíz cuadrada del número. Puede 
que ésta no sea entera, pero lo que está claro es que si hay algún par de 
factores en que se pueda descomponer el número y uno de ellos es menor 
que la raíz cuadrada, el otro ha de ser forzosamente mayor. Por ejemplo, 


TI 


como la raíz cuadrada de 64 es 8, si uno de los factores fuera menor o 
igual que ella el otro sería mayor o igual: 


2 por 32, 4 por 16, 8 por 8, y, desde ahí, 16 por 4 y 32 por 2. 


Por tanto, el límite de exploración del primer factor debiera ser la raíz 
cuadrada del número a descomponer. 

Por otra parte, se puede comprobar que cualquier número entero se 
puede expresar como 6 por N, más 0, 1, 2,6 3, o menos 1 ó 2, donde N es 
otro número entero. Por ejemplo: 


12 esiguala 6por2 más 0 
13 esiguala 6por2 más 1 
14 esiguala 6por2 más 2 
15 esiguala 6por2 más 3 
16 esiguala 6por3 menos 2 
17 esiguala 6por3 menos l 
18 esiguala 6por3 más 0 
19 esiguala 6por3 más 1 


Los números que se pueden expresar como 6 por N más 0 ó 2 o menos 
2 son divisibles por 2 (y la mitad será 3 por N más 0 ó 1 o menos 1). 

Los números que se pueden expresar como 6 por N más 0 ó 3 son di- 
visibles por 3 (y la tercera parte será 2 por N más 0 ó 1) 

Por ello, a la hora de explorar posibles números primos, una forma de 
ganar tiempo es probar sólo aquéllos que se puedan expresar como 6 por 
N más o menos 1, con lo cual se evita probar números que sean divisibles 
por 203. 

Con todos estos cambios, el programa de obtención de primos que- 
daría: 


PROGRAM PRIMOSMEJOR; == : 
. (* programa para obtener números primos: *) 
= VAR === 
: MAXIMO, NUMERO, FACTOR,N: INTEGER; 

PRIMO, ULTIMOCONMAS: BOOLEAN; 

BEGIN = 
WRITELN (' Introduzca limite (máximo=",MAXINT,').'); 
READLN- (MAXIMO); MAXIMO: =ABS(MAXIMO) ; 
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Realmente, en lugar de ROUND habría que utilizar TRUNC, pero si, por 
ejemplo, la raíz cuadrada de 25 fuera 4.99999999 debido al error de redon- 
deo, el límite del bucle FOR sería incorrecto. 

Se ha utilizado la variable BOOLEAN ULTIMOCONMAS para indicar si 
el último número probado fue del tipo 6*N+1 o no. 

Va tomando alternativamente los valores FALSE y TRUE, por lo que las 
dos asignaciones dentro de la estructura IF se podrían cambiar por la úni- 
ca ULTIMOCONMAS:= NOT ULTIMOCONMAS a continuación de ella. 

La modificación del programa de los factores es inmediata. 


TS 


MAS TIPOS DE DATOS 1 


A se ha mencionado que, además de los tipos de datos exis- 
tentes en PASCAL, es posible crear nuestros propios tipos 
de datos. 

La definición de tipos se hace en la zona de descrip- 
ción de datos y antes de la definición de variables. Va pre- 
cedida de la palabra reservada TYPE, tras la cual se escri- 
ben las descripciones de datos separadas entre sí por pun- 
to y coma. 

Como los procedimientos READ, READLN, WRITE y 
WRITELN ya están programados de antemano, no están preparados para 
ser utilizados con los tipos creados por nosotros. 

Vamos a ver algunos de los posibles nuevos tipos. 


TIPOS ESCALARES 


A menudo se trabaja con datos que no son números ni letras. Por ejem- 
plo, podría ser necesario tener en cuenta el día de la semana para que un 
programa hiciera o no determinadas cosas. 

Para guardar en una variable el día en cuestión, una solución podría 
ser asociar a cada día de la semana un número: lunes el 1, martes el 2, etc. 
Entonces podríamos escribir cosas como: 


donde DIA sería una variable de tipo INTEGER. 


Ad 


Esto nos obligaría a recordar en cada momento qué números hemos 
asociado a los posibles valores de nuestros datos. 

En PASCAL, sin embargo, es posible crear un nuevo tipo de datos para 
que se ajuste a nuestras necesidades. Podríamos crear así un tipo (llamé- 
mosle DIADELASEMANA) cuyos posibles valores serían LUNES, MARTES, 
MIERCOLES... al igual que existe el tipo INTEGER cuyos posibles valores 
son ...-2,-1,0,1,2... o BOOLEAN con TRUE y FALSE. 

Definiríamos entonces el tipo enumerando sus posibles valores. 

Para ello se escribe, en primer lugar, el nombre del tipo seguido de un 
igual y de los identificadores de los posibles valores separados entre sí por 
comas y encerrados entre paréntesis. Los tipos así definidos, junto con los 


tipos INTEGER, CHAR y BOOLEAN, se llaman tipos escalares. Por ejem- 
plo: 


AF CDIA=SABADO) AND CCOLORE>ROJO) THEN 


Hay dos restricciones a la hora de crear estos tipos: 


— El número de posibles valores está limitado, dependiendo este lími- 
te de cada compilador; normalmente es 256. 


— Los posibles valores deben ser exclusivos del tipo que hayamos de- 
finido. Así, no sería posible crear el tipo VOCALES formado por los valo- 
res 'A'E',T','O”,'U*, pues éstos lo son del tipo CHAR. 
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Como se puede ver, el tipo BOOLEAN sería definible, caso de que no 
lo estuviera ya, de la siguiente manera: 


Al igual que los tipos CHAR y BOOLEAN, los tipos escalares tienen aso- 
ciados números ordinales y se encuentran ordenados según éstos. 

Estos números se asignan según el orden en que se hayan enumerado 
los posibles valores al definir el tipo, empezando por cero. 

Por ello, es posible utilizar las funciones ORD, PRED y SUCC que dan, 
respectivamente, el número de orden, el valor anterior y el posterior a uno 


dado: 


ORD(HOY) valdría 1 si HOY valiera MARTES. 
PRED(SABADO) valdría VIERNES. 
SUCC(COLOR) valdría VERDE si COLOR valiera ROJO. 


y comparar valores: 


(LUNES < MARTES) valdría TRUE pues ORD(LUNES) es menor 
que ORD(MARTES) 


(Recordemos una vez más que en PASCAL nunca se pueden mezclar ti- 
pos.) 

Por esto mismo también es posible usar variables de tipo definido por 
enumeración para control de las estructuras FOR: 


FOR DIA:=LUNES TO VIERNES DO... 
FOR COLOR:=AZUL DOWNTO ROJO DO... 


Para presentar valores de tipos creados por nosotros habría que acudir 
a artificios como: 


1 DIASLUNES THEN WRITE(CLUNES") 


ELSE TF DIA=MARTES THEN WRITE(" MARTES”) 


Y lo mismo para leerlos: 


TIPOS SUBRANGO 


Ya se vio en su momento cómo se podía definir una variable de tipo 
subrango de los tipos CHAR e INTEGER. 

Con los otros tipos escalares es posible también definir subrangos. Por 
ejemplo, estando el tipo DIADELASEMANA va definido podríamos tener: 


puede tener valores comprendidos entre LUNES y VIERNES. El subrango 
se describe, por tanto, poniendo los valores extremos separados por un 
par de puntos, de manera que el primero sea menor que el segundo. Nun- 
ca se podrá definir un subrango del tipo REAL. 

Aunque en el ejemplo hemos descrito el subrango al definir la varia- 
ble, es a veces más conveniente crear primero el tipo subrango y luego uti- 


lizarlo al describir las variables: 


00 


O 


Los tipos subrango en el fondo siguen siendo del tipo que les da origen 
y por ello SÍ se pueden mezclar entre sí y con el tipo escalar asociado si 
éste es común a ellos. Por ejemplo, si tenemos: 


son correctas, aunque al correr el programa se podría producir un error 
al ejecutar, por ejemplo, A:=B si B tuviera un valor no aceptable para A. 

Además de servir para controlar que no se almacenan valores absur- 
dos en las variables, a veces se obtiene un ahorro de memoria, pues el ta- 
maño de la porción necesaria para guardar datos con valores restringidos 
puede ser menor. 

Nota: La mayoría de los compiladores tienen la posibilidad de activar 
o no la propiedad de controlar si los valores que se guardan en variables 
de tipo subrango están dentro de los límites permitidos; debe consultarse 
el Manual para utilizarla. 


TIPOS ESTRUCTURADOS 


Todos los tipos vistos hasta el momento se refieren a datos simples. 

Una variable de tipo INTEGER sólo puede tomar un valor en un mo- 
mento dado y lo mismo sucede con los tipos CHAR, DIADELASEMANA... 

Sin embargo, nos podría interesar guardar en una única variable el 
peso, la edad, la estatura y el nombre de una persona, o guardar en una 
sola variable todas las notas de un examen, etc. 

En PASCAL se pueden definir tipos de datos que a su vez se componen 
de otros tipos, para así poder tratar con varios valores a la vez; es lo que 
se llaman tipos estructurados. 

Vamos a ver a continuación el más común de ellos, el tipo ARRAY. 


EL TIPO ARRAY 


Supongamos por un momento que queremos obtener la media de las 
notas de un examen y posteriormente obtener la nota más alta. Primero 
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deberíamos sumarlas todas y dividir el resultado por el número de notas. 
Haríamos: 


 NOTA1, NOTA2, NOTAS : REAL; 
SUMA, MEDIA, MAXIMA : REAL; 
BEGIN = = === 
z -WRITELN(” INTRODUZCA LAS nonASO == : 
—READLN (NOTA1); E - 
> READLN (NOTA2); == AZ ZÉ - == == 
== —— READER A == AK<A 
2% Ahora calculamos la media ” A = 
=> SUMA: =0. 0 == - 
SUMA: SUMÁ+NOTAL; (0% AL velor anterior de SUMA le sunenos MOTA!) = 
SUMA : =SUMA+NOTA2; = = : ——— === 
SUMA: =SUMAS NOTA; — - E = == = 
— MEDIA: =SUMA/3.0; DE 
-——WRITELNC'La nota media es” MEDIA: 6: 2: RAR === 
==TE Ahora obtenemos la nota máxima *) === A 
MAXIMA =0.05 RE 
== TF. NOTAL>MAXIMA THEN MAXIMA: =NOTA1; AAA 
—= _XJF NOTAZ>MAXIMA THEN MAXIMA: =NOTA2; === : == 
= = 1F- EEC E — == == === 


Es fácil imaginar cómo sería este programa para calcular la media de 
cien notas. Si se pudieran guardar todas en memoria como un grupo y no 
cada una con su propia variable, el programa sería mucho más sencillo. 

Las variables de tipo ARRAY permiten guardar en una sola muchos da- 
tos del mismo tipo. Es como si tuviéramos una tabla con muchos valores 
registrados y para escoger uno de ellos dijéramos: «Dame el primer valor 
de la tabla», o el quinto, o el tercero, etc. 

Para utilizar uno de los elementos de la tabla en concreto se necesita, 
por tanto, indicar cuál de ellos es, por medio de lo que se denomina un 
INDICE. 

Este índice podría ser un valor de tipo INTEGER, con lo que podría- 
mos decir algo como «Guarda esto en el elemento número 5 de la tabla» 
o «Presenta en pantalla el elemento número 2». 

Por tanto, al crear una variable de tipo ARRAY hay que indicar dos co- 
sas: 


— Entre qué valores puede estar comprendido el índice. En otras pa- 
labras, el subrango al que pertenece éste. 
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— De qué elementos es la tabla. Podría ser una tabla de números en- 
teros, reales, de caracteres, de variables del tipo DIADELASEMANA... 


Para ello se escribe en primer lugar la palabra reservada ARRAY, se- 
guida del subrango al que corresponda el índice puesto entre corchetes; 
tras ello se escribe la palabra reservada OF, seguida del tipo al que perte- 
necen los elementos de la tabla. Por ejemplo: 


VAR NOTAS: ARRAY [1..100] OF INTEGER; 


1 


m1 
$" 
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, 
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crea una variable llamada NOTAS que es una tabla de números de tipo IN- 
TEGER. Los elementos de la tabla se escogen indicándolo con un índice 
que puede estar comprendido entre 1 y 100 (1..100 es un subrango del tipo 
INTEGER). Tendremos así el elemento número 1 de la tabla, el 2, etc. has- 
ta el 100, o sea, 100 elementos en total. 

Al igual que sucedía con el tipo subrango, puede ser más conveniente crear 
primero: 


t 
1 


TYPE TIPONOTAS: ARRAY [1..100] OF INTEGER; 
=- : VAR NOTASCLASE1,NOTASCLASE2: TIPONOTAS; 


Para indicar el elemento de la tabla que se desea utilizar se escribe el 
nombre de ésta seguido de una constante, variable o expresión que pro- 
porcione el valor del índice, puesta entre corchetes: 


WRITE (NOTAS[1342); (* Escribe el doble del elemento 1 de la tabla *) 
: NOTAS[S50%*2]:=7; (* Guarda 7 en el elemento 100 de la tabla *) 


Los elementos así especificados son del tipo constitutivo del ARRAY. 
En el ejemplo serían, pues, de tipo INTEGER y, por tanto, se podrían uti- 
lizar exactamente igual que cualquier otra variable INTEGER. 

Si el ordenador no dispusiera de los corchetes en su juego de caracte- 
res se pueden utilizar en su lugar las parejas (. y .) : 


===  NOTAS(5.):=3; 
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No se pueden comparar variables de tipo ARRAY entre sí, pues no ten- 
dría sentido, ni hacer operaciones con ellas tomadas en su conjunto. La 
única operación posible con todos los elementos de un ARRAY a la vez es 
la asignación: 


esto guardaría todos los valores de la tabla NOTASCLASEZ2 en la tabla NO- 
TASCLASE] , es decir, el elemento 1 de la tabla NOTASCLASEZ2 en el 1 de 
NOTASCLASEI, el 2 en el 2, etc. 

Hay que hacer notar que el número de elementos de la tabla queda de- 
finido por el subrango del índice y éste es fijo. Si al escribir el programa 
especificamos, por ejemplo, 21..30, la tabla tendrá 10 elementos y esto no 
podrá ser cambiado durante la ejecución del programa. 

Si quisiéramos preparar el programa NOTAS para funcionar con una 
tabla en lugar de con una variable distinta para cada nota, pondríamos en 
principio 


con lo que ciertamente se gana poco. Sin embargo, como el índice puede 
ser una variable, el paquete de instrucciones READLN se puede sustituir 
por un bucle FOR en que la variable de control se utilice como índice, y 
lo mismo sucede para las demás instrucciones que se repiten. 

Estamos ya en condiciones de hacer un programa de medias mejorado; 
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EN 


| 


| 


Como se ve, en lugar de utilizar una instrucción para cada nota se han 
utilizado bucles FOR, pues se repiten un número fijo de veces. Además, se 
ha descrito el subrango del índice previamente para así no tenerlo que re- 
petir con INDICE y TOTAL. Nótese también dónde se ha puesto uno de los 
comentarios; recordemos que se pueden poner comentarios en cualquier 
lugar en que pueda ir un espacio en blanco. 

Hasta ahora sólo se han utilizado índices de tipo subrango del tipo IN- 
TEGER. Sin embargo, se pueden utilizar índices de cualquier tipo subran- 
go o escalar siempre que la tabla resultante quepa junto con las demás va- 
riables en la memoria del ordenador. 

Por ejemplo, para guardar los gastos de los diferentes días de la sema- 
na y las horas trabajadas en un programa de presupuestos podríamos 


poner: 


ONES CARA! 
Ka , DADA 


PS POMTIGO 
DO, DOMINGO 
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Los elementos constitutivos de una variable de tipo ARRAY pueden ser 
de absolutamente cualquier tipo. Tipos estándar, tipos nuevos, incluso 
ARRAYS. 

Imaginemos que en el colegio en que se va a utilizar el programa de 
medias hay varios grupos llamados A, B, C, D y E. Una vez más podríamos 
crear para cada uno una variable tipo ARRAY propia, NOTASA, NOTASB, 
etc., pero entonces habría que repetir las instrucciones para cada una. 

En lugar de eso, podemos crear una tabla de ... tablas de notas: 


Teniendo en cuenta las diferentes asignaturas, podríamos tener: 


= = => ==> NOTAS [FISICAJEB: 197 == = = 


que sería la nota del alumno 37 del grupo B en Física. 

A este tipo de variables se les llama ARRAYs MULTIDIMENSIONALES. 
Como se ve, el total de notas que se podría guardar en NOTAS sería 3 asig- 
naturas por 5 grupos por 100 alumnos, igual a 1500. 

En PASCAL las expresiones como ARRAY?[...] OF ARRAY[...] OF ... y 
NOTAS[ ][ ][ ] se pueden abreviar así: 


= -TIPONOTAS = - ARRAY TASIGNATURAS, “e == :, TIPOALUMNO]. 


=== Array de caracteres 


Un caso especial de ARRAY es aquél cuyos elementos son caracteres. 
Al ser tablas de éstos, permiten guardar textos. 

Supongamos que tenemos definida la variable TEXTO como 
ARRAY][1..4] OF CHAR ; como hemos visto, para guardar la palabra *'PEPE' 
habría que hacer 


: —TEO(A):=P"; TEXTOL2]:="E"; TEXTO(3]:="P"; TOTO ji= ES) — === 


Pm 


Sin embargo, la mayoría de los compiladores permiten poner 


TEXTO:="PEPE*; (* Deben ser exactamente 4 caracteres *) 
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También suele ser posible escribir o leer con una sola instrucción es- 
tas variables: 


Por otra parte, la instrucción de lectura tomaría sólo cuatro caracteres 
de los tecleados si hubiera más, y rellenaría con espacios en blanco (en al- 
gunos casos con el carácter cuyo ordinal es 0, CHR(0)) los que faltaran has- 
ta cuatro si se hubieran tecleado menos antes de pulsar RETURN, INTRO, 
etcétera. 

En aquellos casos en que existe el tipo predefinido STRING, una varia- 
ble de este tipo normalmente puede ser asignada a un ARRAY OF CHAR 
si la longitud del string en ese momento coincide con la del ARRAY, y a 
la inversa en todo caso. 


Ejemplo 


Para terminar y a modo de ejemplo vamos a ver cómo podríamos guar- 
dar en memoria la situación del tablero contrario en una partida de bata- 
lla naval (o de barquitos). 

En cada punto del tablero puede haber cuatro situaciones: que haya 
agua, que haya un barco tocado o hundido o que no se sepa lo que hay. 
Podríamos así definir el tipo de los posibles valores que puede tomar un 
punto: 


FOCADO BARCOHUNDIDO DESCONOCTDO) 
UCADO, DARGUTUIW 100, DESCUIDO) | 


Una fila del tablero sería entonces un ARRAY [1..10] OF POSIBLE y, 
por tanto, el tablero completo quedaría como un ARRAY de filas, o sea: 


VAR . - 
: CONTRARIO: ARRAY. *3*] OF ARRAY[1..10] OF POSIBLE; 


= CONTRARIO: ARRAY EA "J”, 1..10] OF POSIBLE; 


entonces podríamos escribir cosas como 


=== CONTRARIO [*B!,7]:=AGUA; 100 ss, 0 87 oy aqu) == = 


AS == 31 = DESCONOCIDO THEN . = 


POUAIADAN 
1] 


Si quisiéramos visualizar en pantalla la situación del tablero escribien- 
do, por ejemplo, un espacio en blanco en las casillas desconocidas, una T 
en donde haya barco tocado, una H en los hundidos y una A donde se sepa 
que hay agua, podríamos escribir: 


mm 


CLRSCR; o PAGE o > Como se deba hacer para borrar la pantalla ”- == 


1] 


FOR: FILA: on my Do == (% Dibujar de fila e mm fila: > 
BEGIN. : : . == 
e Primero pintar la fila c de columa en columa: + = = == — == 
FOR COLUMNA: =1 TO 10 DO. === === = == 

EH == 

Et -[FILA,C COLUMNA] = DESCONOCIDO: THEN WRITE ( > == 
= , COLUMNA] -= BARCOTOCADO THEN WRITE ("1"); 

IF CONTRARIO [FILA, COLUMNA] : = BARCOHUNDIDO THEN WRITE (* La 

=== CONTRARIO PRIEA, OEA E TRE UE 


UN 


nm 


= —VRITELNO Of Tras acabar. cada fila, bajar una. OS === 


== o A q__=< AA A = 


FILA y COLUMNA deberían ser variables de tipo CHAR e INTEGER, res- 
pectivamente (o subrango de ellos). 
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El PASCAL permite así definir estructuras de datos sumamente adapta- 
das al problema real que se desee resolver. Esto redundará en una mayor 
claridad de los programas y, por tanto, en una programación más eficien- 
te y depurada con menor cantidad de errores. 
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PROCEDIMIENTOS 
Y FUNCIONES 


UANDO escribimos el programa de descomposición en 
factores lo hicimos siguiendo una técnica de refinamien- 
to gradual, es decir, descomponiendo primero el proble- 
ma en sus partes principales y analizando luego cada una 
de estas partes por separado para descomponerlas a su vez 
en tareas más sencillas. Así, teníamos un primer esquema 
del programa como éste: 


1. Leer primer número. 
2. Mientras (while) el número sea distinto de cero hacer: 


— Procesar y sacar resultados. 
— Leer siguiente número. 


3. Mostrar en pantalla mensaje de despedida. 
A su vez, «procesar y sacar» se descomponía en varios pasos: 


A. Anotar que NUMERO es primo. : 
B. Para FACTOR valiendo desde 2 hasta NUMERO DIV 2 hacer: 
Si NUMERO dividido por FACTOR es un número entero en- 
tonces: 


— Presentar FACTOR y NUMERO DIV FACTOR. 
— Tachar la anotación de qué NUMERO es primo. 


C. Si todavía está la nota, avisar de que NUMERO es primo. 


Como culminación de este proceso, hubo que juntar todos los pasos 
sencillos en que llegamos a descomponer el problema para construir el 
programa definitivo. 

Si, teniendo ya el programa terminado, se descubren errores o se de- 
sea modificar alguna de las partes integrantes del programa, hay dos op- 
ciones; O bien se vuelve a repetir todo el proceso de descomposición y pos- 
terior integración, o se introducen los cambios directamente en el progra- 
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ma ya escrito. En el primer caso, si el programa es grande supondría des- 
perdiciar una gran cantidad de trabajo ya hecho. 


En el segundo caso, dado que ya están todas las partes integradas, ha- 
bría que delimitar claramente el área afectada para introducir los cambios 
y comprobar que éstos no afectan a las otras partes. 


Esta tarea sería mucho más sencilla si el programa PASCAL reflejara 
los diferentes niveles de descomposición del problema. Así, la parte prin- 
cipal del programa se correspondería más o menos con el primer nivel de 
descomposición, indicando las diferentes fases del proceso. Luego, cada 
una de éstas estaría programada por separado constituyendo lo que deno- 
minaríamos subprogramas. 

Al ejecutarse el programa, la parte principal iría utilizando a los dife- 
rentes subprogramas según fuera preciso. 


Con ello, el punto 2 del programa de los factores se escribiría: 


PROCESARYMOSTRAR sería el subprograma donde ya sí estaría deta- 
llado en qué consiste «procesar y sacar». En caso de querer hacer algún 
cambio en la parte del proceso, no habría que modificar nada del progra- 
ma principal; todos los cambios serían únicamente en el subprograma. 


A su vez, el subprograma podría hacer referencia de manera análoga a 
otros subprogramas de nivel inferior que realizaran alguna de sus partes 
constitutivas. 


Esto es posible en PASCAL mediante el uso de PROCEDIMIENTOS y 
FUNCIONES, que son conjuntos de instrucciones a los que se les ha dado 
un nombre o identificador. Para ser utilizados, basta con escribir éste como 
una instrucción más, o sea, separado de las demás por punto y coma. 


Cuando se ejecuta el programa, al llegar a un nombre de procedimien- 
to o función se pasa a ejecutar su conjunto de instrucciones. Tras ellas se 
siguen ejecutando las que vengan a continuación del nombre. 


La única diferencia entre procedimientos y funciones es que estas úl- 
timas además devuelven un valor (un número, un carácter...) para su uso 
por el programa principal. 
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En PASCAL existen ya procedimientos y funciones previamente progra- 
mados. Un ejemplo de procedimiento es CLRSCR (o PAGE, etc.). Cuando 
ponemos: 


al ejecutarse CLRSCR, realmente se ejecuta un conjunto de instrucciones 
con ese nombre. Tras ello, se ejecutaría la siguiente instrucción, WRITE. 
Un ejemplo de función es ODD. Está formada por un conjunto de ins- 
trucciones que, al estar ya preparadas, no tienen que escribirse. A estas ins- 
trucciones se les suministra un dato de tipo INTEGER y, según que sea im- 
par o no, devuelven el valor de tipo Boolean TRUE o FALSE, respectiva- 
mente. El dato a analizar se escribe a continuación del nombre de la fun- 
ción, entre paréntesis, y el dato Boolean devuelto pasa a «ocupar», por de- 
cirlo de alguna manera, el sitio del nombre de la función. Por ejemplo: 


E-AÁ 2000 — === 


MT 


Al llegar al nombre ODD se pasa a ejecutar su conjunto de instruccio- 
nes, a las que se transfiere el número 3. Estas lo analizan y devuelven 
TRUE, por lo que en ese momento esa instrucción equivaldría a A:=TRUE. 


Ejemplos de procedimientos a los que se transfieren datos para proce- 
sar son WRITE y READ. 


Funciones ya estudiadas son PRED, SUCC, ORD, SIN, COS, etc. 


Otra ventaja de los procedimientos y funciones, casi tan importante 
como la de poder estructurar los programas, es la de permitir hacer los 
programas más cortos. 


En efecto, supongamos que hemos preparado una secuencia de instruc- 
ciones para, por ejemplo, mostrar por pantalla la situación del tablero de 
barquitos del capítulo anterior. Si al escribir el programa resultara que hay 
que mostrar tableros en diferentes momentos de su ejecución, no habría 
más remedio que repetir esas instrucciones en todos los puntos necesarios. 


En lugar de eso, podríamos agrupar esas instrucciones como un pro- 
cedimiento de nombre, digamos, PRESENTAR. Entonces bastaría con es- 
cribir PRESENTAR en todos los puntos del programa necesarios. 
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Si además hubiera que mostrar varios tableros distintos, tendríamos 
que transferir al procedimiento el nombre de la variable en cuestión. Así, 
si escribiéramos en el programa principal: 


mostraría primero la situación del tablero guardada en la variable CON- 
TRARIO1 y luego la de CONTRARIO?2. 

Vamos a estudiar a continuación cómo utilizar los procedimientos y las 
funciones. 


0 


ESCRIBIENDO PROCEDIMIENTOS 


Los procedimientos se escriben después de la zona de descripción de 
datos del programa, justo antes de la palabra reservada BEGIN, que marca 
el comienzo de la zona de instrucciones del programa. 

De esta manera, la estructura de un programa PASCAL quedaría: 


PROGRAM NombreDelPrograma; 
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De las diferentes partes del programa, sólo la cabecera y las palabras 
BEGIN y END con punto son obligatorias en todo programa PASCAL. Las 
diferentes partes van separadas entre sí por punto y coma. 

Supongamos que queremos escribir un programa que cuente del 1 al 
10. Tendría la siguiente estructura: 


l. Presentar mensaje en pantalla indicando lo que hace. 
Para CUENTA valiendo desde 1 hasta 10 hacer: 


— Presentar CUENTA en pantalla. 
— Pasar a siguiente línea. 


3. Presentar mensaje de despedida. 


A modo de ejemplo, vamos a escribir los puntos 1 y 3 como procedi- 
mientos. Tendríamos un programa como: 


== == PROGRAM CONTAR; 

ZO VAR CUENTA: INTEGER; 

== : A A 

== = PROLOGO; == 

- FOR CUENTA:=1 TO 10 DO WRITELN (CUENTA: 3); 
DESPEDIDA 

END. 


! 


PEO 


Al intentar compilar el programa se producirían errores, pues al bus- 
car el compilador dónde están descritos los procedimientos no los encon- 
traría. 

La descripción de un procedimiento comienza por la palabra reserva- 
da PROCEDURE seguida de su nombre, que puede ser cualquier identifi- 
cador válido. Esto es lo que se denomina cabecera del procedimiento, que 
debe ir separada de lo siguiente por un punto y coma. 

Además, todo procedimiento consta de las palabras reservadas BEGIN 
y END, que marcan el principio y final de sus instrucciones. 

Las descripciones de los diferentes procedimientos y funciones se es- 
criben unas detrás de otras, separándose la cabecera de uno de la palabra 
END del anterior mediante un punto y coma. 

Por tanto, para que el compilador no produjera errores bastaría con po- 


ner: 


VAR CUENTA: INTEGER; 


= PROCEDURE PROLOGO; 
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Al ejecutarse este programa, como las descripciones de los procedi- 
mientos no constan de ninguna instrucción, es como si hubiéramos pues- 
to «no hacer nada», con lo que sólo saldrá la cuenta en la pantalla. Nues- 
tra intención es que los procedimientos saquen unos mensajes y, por tan- 
to, deben tener escritas las instrucciones necesarias para ello, con lo que 
el programa definitivo quedaría así: 


T 
FOR CUENTA: =1 TO 10 DO WRITELN (CUENTA:3) 


pl 


VARIABLES LOCALES 


A los procedimientos y funciones se les conoce en general como sub- 
programas, o sea, programas de orden menor para ser utilizados por otros 
de orden superior. 

Si recordamos los primeros capítulos, veremos que la estructura de los 
procedimientos del ejemplo es similar a la de aquellos programas. En am- 
bos casos existe una cabecera que comienza por las palabras reservadas 
PROCEDURE o PROGRAM, según el caso. 

Tras la cabecera viene el conjunto de instrucciones enmarcado por las 
palabras BEGIN y END, habiendo un punto a continuación de END en el 
caso de los programas para indicar el final absoluto del programa y un pun- 
to y coma en los procedimientos para separarlos de lo que venga a conti- 
nuación. 

Pues bien, el paralelismo va mucho más lejos. 

Los procedimientos pueden tener su propia zona de definición de da- 
tos con variables para su uso exclusivo. Incluso pueden tener a su vez sus 
propios procedimientos y funciones. 

La estructura quedaría, por tanto, así: 


PROCEDURE NombreDelProcedimiento; 


BEGIN 
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Es decir, son como programas PASCAL escritos dentro del programa 
principal. 

Tanto las constantes como los tipos de datos, variables, procedimien- 
tos y funciones definidos dentro de un procedimiento se denominan LO- 
CALES de ese procedimiento y son para su uso exclusivo. Solamente pue- 
den ser utilizados dentro de él (y de los propios procedimientos y funcio- 
nes de éste). 

Sin embargo, todas las constantes, tipos y variables del programa prin- 

cipal siguen pudiendo ser utilizados por las instrucciones del procedi- 
miento. 
Las variables locales de un procedimiento son iguales en casi todos los 
aspectos a las del programa principal, denominadas a su vez GLOBALES 
por poder utilizarse en cualquier parte del programa, tanto en la parte prin- 
cipal como en cualquier procedimiento o función. 

La única diferencia estriba en que sólo toman la porción de memoria 
que necesitan en el momento en que se utiliza el procedimiento. Cuando 
se termina de ejecutar éste, el espacio de memoria ocupado por sus varia- 
bles queda libre para su uso en cualquier otra cosa, como por ejemplo, 
para las variables de otro procedimiento que se ejecute a continuación. 

Por ello, no es posible conservar datos en una variable local entre dos 
utilizaciones de un procedimiento. Una vez acabado éste, se pierden todos 
sus datos locales. Si se necesitara guardar algún dato entre ejecuciones su- 
cesivas habría que utilizar variables globales. 

Cuando el PASCAL encuentra el nombre de una variable busca prime- 
ro a ver si la encuentra entre las variables locales del procedimiento y es 
ésa la que utiliza. 

Sólo si no la encuentra pasa a buscar entre las variables globales del 
programa. 

Por ello, si una variable local tiene el mismo nombre que una global, 
la que se utilizará siempre en el procedimiento será la variable local. 

(Cuando se trata de un procedimiento, dentro de un procedimiento, 
dentro de otro, etc., busca primero entre las locales propias; si no se en- 
cuentra, entre las del procedimiento de orden superior, que a su vez son 
globales para el anterior, y así sucesivamente hasta acabar buscando entre 
las del programa principal.) 


El uso de variables locales permite ahorrar memoria, pues las mismas 


zonas son utilizadas por variables de diferentes procedimientos, según el 
momento. 


Sin embargo, las principales ventajas son otras. 


Por un lado, evitan que, si el procedimiento altera (erróneamente o no) 
el contenido de una variable, esto afecte al resto del programa, cosa que 
sucedería si la variable fuera global. 


Por otro lado, permiten escribir procedimientos autosuficientes, es de- 
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cir, que no necesitan que se les prepare en la zona de definición de datos 
del programa ninguna variable especial para ellos. 

Así, procedimientos escritos y probados en alguna ocasión para otros 
programas pueden ser utilizados sin más que copiar su descripción. De 
esta manera se ahorra una enorme cantidad de trabajo y se evitan posibles 
errores. 

Vamos a ver a continuación un sencillo ejemplo de utilización de va- 
riables locales. Supongamos que ahora deseamos que el programa CON- 
TAR tenga también el punto 2 escrito como procedimiento y que éste uti- 
lice sólo variables locales; además, para ilustrar los casos de coincidencia 
de nombre entre variables globales y locales, vamos a hacer que la cuenta 
desde 1 hasta 10 se repita cinco veces, utilizando una variable global, 
CUENTA, para ello. El punto 2 sería ahora algo como: 


2. Para CUENTA valiendo desde 1 hasta 5 hacer: 


— Contar desde 1 hasta 10. 
— Avisar del final de la cuenta. 


< 


«Contar desde 1 hasta 10» sería el antiguo punto 2 que pondremos ahora 
como procedimiento. El programa quedaría: 


PROGRAM CONTAR2; 

VAR CUENTA: INTEGER; (* Esta variable es global *) 

= PROCEDURE PROLOGO; 

BEGIN : 
CLRSCR; — (* o PAGE o como se haga para borrar la pantalla. *) 
WRITELN(' Este programa sólo cuenta desde 1 hasta 10.”); 
VRITELN(*Vean si no:”) 

END; 


TM 


MN 
Ml | 


PROCEDURE DESPEDIDA; 
- BEGIN = 

VRTELE” Tras esto, no hay más Adiós.*) 
END; 


1] 


mo 


VAR CUENTA: INTEGER; (* Esta variable es local de CONTARUNOADIEZ *) 
BEGIN 
FOR CUENTA:=1 TO 10 DO VRITELA (CUENTA: 3); 

END; 


Mi 


BEGIN 

PROLOGO; : 

FOR CUENTA: =1 TO 5 Do (* Esta variable es la global *) 
BEGIN 


O) 


IN 


| 
| 
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Desde luego, utilizar nombres coincidentes sólo sirve para hacer los 
programas menos claros y, por ello, sólo es aconsejable para variables que 
se usen muchas veces para diferentes tareas sencillas, sin una misión es- 
pecífica (a estas variables es una práctica usual darles nombres cortos 
como I, J, N, R y son las típicas a usar, por ejemplo, para contar el núme- 
ro de veces que se repite un bucle, para una entrada de datos en la que se 
quiere comprobar el rango antes de utilizar la variable definitiva, etc.). 


PASO DE PARAMETROS POR VALOR 


Si se necesitara que un procedimiento manejase datos pertenecientes 
al programa principal (o al procedimiento en que estuviera inserto, caso 
de que fuese de menor nivel) una posible forma sería utilizar la o las va- 
riables globales en que estuvieran guardados esos datos llamándolas por 
su nombre y cuidando, por supuesto, de que no hubiera variables locales 
con igual denominación. 

Partiendo del programa CONTAR2, vamos a hacer otro que realice una 
sola cuenta desde 1 hasta un valor introducido por teclado en la variable 
global TOPE: 
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Sin embargo, este método obliga a que el programa principal y el pro- 
cedimiento se pongan de acuerdo en la variable a utilizar, como sucede 
con TOPE, y ésta tendrá que llamarse igual dentro y fuera del procedi- 
miento. Así, la «autosuficiencia» o facilidad de exportar procedimientos de 
unos programas a otros resulta bastante menor. Además, no podríamos su- 
ministrar al procedimiento los resultados de expresiones ni los datos con- 
tenidos en otras variables diferentes a las convenidas sin guardarlos pre- 
viamente en éstas cada vez que hubiera que ejecutarlo. 

Por otra parte, tampoco se pueden utilizar variables locales normales 
para pasar los datos, pues ya se ha dicho que el programa principal no tie- 
ne acceso a ellas, al existir éstas en memoria sólo durante la ejecución del 
procedimiento, por lo que no sería posible guardar los datos en ellas justo 
antes de ejecutarlo. 

Para solucionar esto, existe en PASCAL la posibilidad de transferir da- 
tos al tiempo que se llama al procedimiento por medio de ciertas varia- 
bles locales especiales. 

Para ello, en su cabecera y a continuación del nombre se deben definir 
las variables locales en las que se van a guardar los datos a transferir en 
el momento de la llamada, describiendo lo que se denomina lista de pará- 
metros. 

Esto se hace de manera idéntica a como se definen las variables en la 
zona de descripción de datos, es decir, el nombre de cada variable debe ir 
seguido de dos puntos y de su tipo, tras lo cual podrían venir las definicio- 
nes de otras variables separadas entre sí por punto y coma. En caso de ha- 
ber varias variables del mismo tipo, se podrían agrupar separadas por co- 
mas, tras lo cual vendrían los dos puntos y el tipo común. Toda la lista de 
parámetros debe ir entre paréntesis. Cabeceras válidas serían, por tanto: 


E-DODD ( H:. DIALABORABLE: 
CI VA ALADURADE y 


Las variables descritas en la lista de parámetros son unas variables lo- 
cales más, con la única particularidad de que se guardan datos en ellas jus- 
to en el momento de llamar al procedimiento. 

Los datos a guardar se deben indicar entre paréntesis y separados en- 
tre sí por comas, justo a continuación del nombre del procedimiento, cada 
vez que se utilice éste. Deben ir exactamente en el mismo orden en que 
están definidas las variables en la cabecera. 
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sería también correcto y con ello I y J tomarían los valores de TOPE y 
CUENTA en el momento de la llamada y K,D y B valdrían 3, MARTES y 
FALSE respectivamente. Sin embargo, 


Revisemos ahora el programa CONTAR3. Para ello vamos a transferir 
como parámetro el valor final de la cuenta: 


PADUA TETMAL. TMTERE 
UNTAKUNOA (FINAL: INTEGER) 


:de 1 hasta FINAL escribiendo en pantalla. *) 
pantalla. *) 


Aquí se observa una de las ventajas más importantes de los procedi- 
mientos: 

Si el procedimiento CONTARUNOA hubiera sido escrito por otro pro- 
gramador, nosotros no necesitaríamos conocer absolutamente nada de sus 
interioridades para utilizarlo. Bastaría con copiarlo y saber, primero, que 
se llama CONTARUNOA y, segundo, que precisa de un único parámetro 
de tipo INTEGER que indica el final de la cuenta. Nada más. Por ello es 
una buena costumbre describir con un comentario para qué sirve un pro- 
cedimiento justo a continuación de su cabecera. 

Como se mencionó en su momento, WRITE y WRITELN no se pueden 
utilizar con tipos no estándar. Estamos ya en condiciones de preparar nues- 
tro propio procedimiento de escritura para variables del tipo DIADELASE- 
MANA: 


Para presentar el día guardado en la variable HOY bastaría con escribir 


siempre que hiciera falta. 
Realmente, WRITE, WRITELN, READ y READLN son unos procedi- 
mientos algo especiales, pues se les puede transferir un número variable 
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de parámetros, cosa que no se puede hacer con los programados por noso- 
tros. 


PASO DE PARAMETROS POR NOMBRE 


Supongamos ahora que queremos escribir además el procedimiento 
READLNDIA de manera que, por ejemplo, guarde LUNES, MARTES, etc., 
si se teclea L,M,X,J,V,S y D. En principio podría ser algo como: 


Sin embargo, debemos recordar que la variable D descrita en la cabe- 
cera es local y, por tanto, por mucho que cambiemos su valor, DIA per- 
manecerá invariable. 

Podríamos escribir READLNDIA de manera que él mismo guardara el 
dato en la variable DIA poniendo, por ejemplo, DIA:=D como última ins- 
trucción, pero está claro que entonces sólo serviría para esa variable. 

Para solucionar estas situaciones está lo que se denomina transferen- 
cia de parámetros por nombre. 

Utilizando ésta modalidad, las variables descritas en la cabecera no son 
locales del procedimiento y cada vez que se ejecuta éste, la porción de me- 
moria que les corresponde es precisamente la de las variables que apare- 
cían en la lista de parámetros en el momento de la llamada. 

En otras palabras, la variable de la cabecera es en cada llamada exac- 
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tamente la misma que figura en la lista de parámetros, de manera que si 
modificamos su valor modificamos también el de esta última. 

Para indicar que un parámetro se transfiere por nombre se debe poner 
delante de su nombre la palabra reservada VAR: 


en este procedimiento, J,K y C se transfieren por nombre y los demás por 
el método habitual. 

Evidentemente, cuando un dato se transfiere por nombre, sólo puede 
aparecer una variable en la lista de parámetros; no están permitidas ni 
constantes ni expresiones. 


Veamos un ejemplo: 


Si quitáramos ahora la palabra VAR de la cabecera de PONERACERO, 
comprobaríamos que NUMERO no cambia de valor. 
Estamos ya en condiciones de escribir el procedimiento READLNDIA: 


Hay una ventaja adicional en el uso del paso de parámetros por nom- 
bre, que debe utilizarse con sumo cuidado. 

Cuando el dato a transferir ocupa mucha memoria (por ejemplo, una 
variable ARRAY multidimensional de, digamos, treinta mil números ente- 
ros), al utilizar el procedimiento por el método habitual se crea una varia- 
ble local de las mismas dimensiones con lo que las necesidades de memo- 


Pasando los datos por nombre, la porción de memoria que se utiliza es 
la misma del original y, por tanto, no se necesita tanta memoria ni em- 
plear tanto tiempo en copiar los datos. Eso sí, existe el riesgo de que por 
una mala programación alguno de los datos originales resulte alterado de 
manera involuntaria al ejecutarse el procedimiento. 


FUNCIONES 


Las funciones son un tipo especial de procedimientos que, además de 
permitir hacer todo lo que hemos visto hasta ahora, devuelven un valor 
que, para entendernos, se podría decir que pasa a ocupar el lugar del nom- 
bre de la función en el punto en que se llamó a ésta. Este valor puede ser 
de cualquier tipo no estructurado, es decir, valores simples como INTE- 
GER, REAL, CHAR, BOOLEAN o tipos escalares de nueva creación. 

Ya conocemos ejemplos de funciones predefinidas como son las de tipo 
REAL COS y SIN y la de tipo BOOLEAN ODD. Para utilizarlas no se nece- 
sita conocer nada sobre cómo han sido programadas. Además, se pueden 
utilizar como parámetros con ellas tanto variables como expresiones o 
constantes. 

En esta misma línea, es una buena práctica escribir las funciones de ma- 
nera que se puedan utilizar de manera similar a las anteriores, es decir, abs- 
teniéndose de utilizar en ellas variables globales y no utilizando el paso de 
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parámetros por nombre, de manera que la única consecuencia de su uti- 
lización esté en el resultado devuelto. 

La única diferencia entre los procedimientos normales y las funciones 
a la hora de escribirlos está en la cabecera. En las funciones se utiliza la 
palabra reservada FUNCTION en lugar de PROCEDURE; además, a conti- 
nuación del nombre de la función (o a continuación de la definición de la 
lista de parámetros, caso de existir éstos) se debe indicar el tipo de resul- 
tado que devuelve. 

Por otra parte, cuando ya se haya obtenido el resultado, éste debe asig- 
narse al nombre de la función como si de una variable se tratara. 

Como ejemplo, vamos a escribir un programa que presente en pantalla 
el cubo de los diez primeros números naturales. Para ello utilizaremos la 
función CUBO, cuyo parámetro es INTEGER y que devuelve un resultado 
del mismo tipo: 


La función CUBO así escrita es directamente utilizable por otros pro- 
gramas sin más que copiar la parte del programa PASCAL que le corres- 
ponde. Formas correctas de utilizarla serían: 


Veamos otro ejemplo. Supongamos que la función ODD no existiera y 
que hubiera que escribirla. El parámetro es de tipo INTEGER y se devuel- 
ve el valor de tipo BOOLEAN TRUE o FALSE, según que aquél sea o no 
impar. 
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Para detectar si un número es impar, una posible manera es compro- 
bar si el resto de dividirlo por dos es cero o uno: 


Esta función se utilizaría exactamente igual que la original. 


Un último ejemplo. 

En el procedimiento READLNDIA, que escribimos anteriormente, po- 
dría suceder que la letra tecleada fuera minúscula, con lo que en las ins- 
trucciones IF habría que poner 


para permitir tanto mayúsculas como minúsculas. 


En lugar de ello, vamos a utilizar la función MAYUSCULA, cuyo pará- 
metro es un carácter y que devuelve el mismo carácter excepto en el caso 
en que aquél sea una letra minúscula, en que devuelve la mayúscula equi- 
valente. 


La operación ORD(C)-ORD('a%) proporciona 0,1,2... según que C sea 
“a, b','c'.... Si a este número le sumamos ORD('A'), obtendremos el núme- 
ro de orden de “A','B“,'C*..., con lo que utilizando la función CHR se con- 
sigue la letra mayúscula equivalente. Esto, claro está, siempre que la letra 
sea una de las 26 del alfabeto inglés. Si además se necesitara la letra Ñ: 


Esta función podría incorporarse a su vez como una función del pro- 
cedimiento READLNDIA en el sitio que le corresponde, es decir, tras su 
zona de definición de datos y antes de sus instrucciones: 


Por casualidad, tanto la variable de READLNDIA como el parámetro 
de MAYUSCULA tienen el mismo nombre; podrían llamarse de distinta ma- 
nera, pero da lo mismo. La variable de READLNDIA es global para MA- 
YUSCULA, pero como se empieza a buscar primero entre las locales pro- 
pias, la que se utiliza en la función es la correcta. 

No obstante, si con ello se evitan confusiones, no hay que dudar en cam- 
biar los nombres. 
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RELACIONES ENTRE PROCEDIMIENTOS 


La función MAYUSCULA inserta en READLNDIA sólo puede utilizarse 
desde las instrucciones de éste. Para el programa principal en que estu- 
viera a su vez inserto el procedimiento, la función es un detalle de las in- 
terioridades de READLNDIA y como tal no tiene conocimiento de su exis- 
tencia. 

Podríamos haber escrito MAYUSCULA fuera de READLNDIA como una 
función independiente para poderla usar desde el programa principal, pero 
entonces se plantea la siguiente cuestión: ¿va a poder seguir siendo utili- 
zada por el procedimiento? 

Supongamos que tuviésemos un programa que se pudiera descompo- 
ner en tres partes: 


— Fase A. 
— Fase B. 
— Fase C. 


Si las fases A y B se descompusieran a su vez en, por ejemplo, las fases 
Al y A2, Bl y B2, respectivamente, el esqueleto del programa PASCAL po- 
dría ser algo como: 


Dl 


pu 
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Supongamos ahora que las fases Al y B1 fueran idénticas. Con esta es- 
tructura de programa no habría más remedio que tener los dos procedi- 
mientos repetidos, pues si dejáramos, por ejemplo, sólo FASEA1, no po- 
dría ser utilizado desde FASEB, pues aquél es un procedimiento local de 
FASEA y, por tanto, de su uso exclusivo. 

La regla para saber cuándo puede ser utilizado un procedimiento es la 
siguiente: 

Sólo puede ser utilizado un procedimiento desde dentro de su inme- 
diato poseedor tomado en su conjunto y siempre desde puntos que se en- 
cuentren por detrás de su cabecera. 

Por tanto, FASEA1, en el primer ejemplo, sólo puede ser utilizado des- 
de dentro de FASEA en su conjunto, o sea, desde el propio FASEA y desde 
FASEA2. 

Escribamos ahora la fase común como un procedimiento FASEAYB1 
independiente: 


El inmediato poseedor de FASEAYB]1 es el programa principal, por lo 
que puede ser utilizado desde cualquier punto situado por detrás de su ca- 
becera, esté o no dentro de un procedimiento o función. 

Si llamamos a un procedimiento o función «hijo» de otro cuando es lo- 
cal suyo, tendríamos que FASEB2 es «hijo» de FASEB, que a su vez sería 
«hijo» del programa principal. También podríamos decir que FASEB es 
«padre» de FASEB1. 

Según esto, los procedimientos FASEA y FASEB serían «hermanos» en- 
tre sí. 
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Con esta definición de parentescos podríamos definir la regla de esta 
otra manera: 

Un procedimiento o función puede utilizar a otro si este último es «hijo» 
suyo, «hermano», ascendiente o «hermano» de un ascendiente estando, 
además, su cabecera escrita por delante en el programa. 

Así, se podría utilizar al «hermano» del «padre» del «padre» pero no al 
«hijo» del «hijo». 

Como FASEA1 es «hijo» de «hermano» de FASEB, no puede ser utiliza- 
do por éste. 

Sin embargo, como FASEAYB1 es un procedimiento «hermano» y está 
por delante de FASEA y FASEB, puede ser utilizado por ambos. 

La cabecera debe encontrarse por delante del punto de utilización por- 
que una de las características del lenguaje PASCAL es que, sea cual sea el 
punto en el que aparece un identificador, éste debe haber sido definido pre- 
viamente. Por ejemplo, el programa puede utilizar una variable que ha sido 
definida previamente en la zona VAR utilizando un tipo que ha sido defi- 
nido previamente en la zona TYPE como subrango delimitado por dos 
constantes definidas previamente en la zona CONST. A la hora de escribir 
un programa esto no es una gran limitación, pues no tiene demasiado sen- 
tido utilizar algo que todavía no se ha definido. 

Por tanto, la respuesta a la pregunta que se planteaba al principio (¿va 
a poder seguir siendo utilizada por el procedimiento?) es SI, siempre que 
MAYUSCULA esté escrita por delante de READLNDIA: 
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Evidentemente, de esta manera READLNDIA pierde su «autosuficien- 
cia» con la compensación de tener a MAYUSCULA disponible para su uso 
por otras partes del programa. 

Para terminar, otra pregunta se plantea: si, además de esta función MA- 
YUSCULA independiente, READLNDIA siguiera teniendo su propia fun- 
ción local, ¿cuál de ellas utilizaría el procedimiento? 

Al igual que sucede con las variables, el PASCAL cuando encuentra un 
nombre de procedimiento o función busca primero entre los locales del 
punto en que se encuentra, por lo que READLNDIA utilizaría su propia fun- 
ción y el resto del programa utilizaría la independiente. 

Así, las ventajas principales de ubicar unos procedimientos dentro de 
otros son dos: 

Por un lado, es posible hacer a éstos últimos «autosuficientes», en el 
sentido de que contienen todas las funciones, procedimientos y variables 
necesarios para su funcionamiento, de manera que baste con copiarlos 
para utilizarlos en otros programas. (Aunque, en el caso concreto de 
READLNDIA, el tipo DIADELASEMANA debe estar definido en el progra- 
ma principal.) 

Por otro, permite sustituir los procedimientos generales, disponibles 
para todo el programa (entre los que se incluyen los predefinidos), por los 
suyos propios. 

“Con los procedimientos y funciones de uso general, sin embargo, lo 
más cómodo será ponerlos como «hijos» del programa principal para así 
poderlos utilizar desde cualquier punto. 


PROCEDIMIENTOS RECURSIVOS 


Supongamos que hubiera que programar la función «Factorial». El fac- 
torial de un número entero N se escribe como N! y se calcula multiplican- 
do N por N-1 por N-2 ... hasta llegar a 1. Por ejemplo: 


1! es igual a 1. 

2! es igual a 2 por 1 igual a 2. 
3! es igual a 3 por 2 por 1 igual a 6. 
4! es igual a 4 por 3 por 2 por 1 igual a 24. 


5! es igual a 5 por 4 por 3 por 2 por 1 igual a 120. 


Como se puede ver, el factorial de un número N es igual a él mismo 
multiplicado por el factorial del número anterior. 


2! es igual a 2 * 1! 
3! es igual a 3 * 2! 
4! es igual a 4 * 3! 
5! es igual a 5 * 4! 
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Por ello, el programa para calcular el factorial de, digamos, 10, sería: 


1. Calcular el factorial de 9. 
2. Multiplicarlo por 10. 


A su vez, el punto 1 (calcular el factorial de 9) sería: 


A. Calcular el factorial de 8. 
B. Multiplicarlo por 9. 


Y así hasta llegar a «calcular el factorial de 1» que consistiría simple- 
mente en tomar un 1. Un programa PASCAL con esta estructura debería 
tener una función para calcular el factorial de 10, otra para el de 9, etc. 

Evidentemente, es una forma poco práctica de programar (imaginemos 
cómo sería para el factorial de 20, 30 ...). Sería más interesante tener una 
función única a la que se pasara como parámetro el número N. El progra- 
ma para calcular el factorial de N sería: 


«Calcular el factorial del parámetro transferido»: 


— Si el parámetro vale 1, devolver 1, y si no: 
1. Calcular el factorial del parámetro transferido menos 1. 
2. Multiplicarlo por el propio parámetro y devolverlo. 


Y para ejecutar el punto 1 se utilizaría exactamente el mismo progra- 
ma, pero pasándole como parámetro N-1. Sólo en el caso de transferir 1 
el programa se limitaría a tomar un 1 como resultado. 

Esto es lo que se denomina un programa recursivo, pues en la descrip- 
ción de sus pasos se hace referencia (o se utiliza) a sí mismo. 

El PASCAL permite la escritura de procedimientos y funciones recur- 
sivos sin ninguna complicación adicional: 


Se ha utilizado el tipo REAL para poder obtener resultados mayores de 
los posibles con el tipo INTEGER. (El factorial de cero vale 1 y, por ello, 
se ha utilizado la comparación «menor o igual».) 

Vamos a explicar de manera resumida cómo es posible que una fun- 
ción (o procedimiento) se llame a sí misma: 

Imaginemos que se ejecuta FACTORIAL (3). En el momento de llamar 
a la función se toma una porción de memoria para la variable local N en 
la que se guarda un 3. 

Posteriormente, y ya dentro de la función, se ejecuta FACTORIAL (2); 
entonces se toma una nueva porción de memoria para N y en ella se guar- 
da un 2 (como todavía no se ha regresado al programa principal, la por- 
ción que se tomó para guardar el 3 sigue ocupada). 

Al ejecutarse FACTORIAL (2), cada vez que aparece N, el PASCAL bus- 
ca la más reciente porción de memoria con ese nombre, que es la que al- 
berga un 2. 

Una vez más, se ejecuta FACTORIAL (1) tomando otra nueva porción 
de memoria para N, en la que se guarda un 1. Debido a la instrucción IF, 
se devuelve 1.0 y se acaba la ejecución de FACTORIAL (1). Entonces se li- 
bera la memoria en que se guardó el 1 y se vuelve al punto desde el que 
se llamó, es decir, en medio de la ejecución de FACTORIAL (2). 

Allí, el resultado de FACTORIAL (1) se multiplica por el valor de N que, 
al haberse liberado la memoria que guardaba el 1, es de nuevo 2. Tras esto 
se acaba la ejecución de FACTORIAL (2) recuperándose la memoria en 
que se guardó el 2 y devolviéndose 2*1.0 al punto medio de FACTORIAL 
(3). 

Entonces 2.0 se multiplica por 3 (pues la más reciente porción de me- 
moria con el nombre N es la que contiene un 3) y se devuelve 6.0 como 
resultado de FACTORIAL (3), quedando libre la memoria en que se guar- 
dó el 3. 

Por supuesto, la posibilidad de escribir procedimientos recursivos se 
debe, en gran parte, a la existencia de variables locales (es decir, aquellas 
que se crean en el momento de llamarse a un procedimiento y cuya me- 
moria queda libre tras ejecutarse éste). 

Las necesidades de memoria pueden llegar a ser grandes, pues la can- 
tidad utilizada para variables locales aumenta cada vez que se profundiza 
en la recursión. Así, con FACTORIAL (30) se llegaría a tener en un mo- 
mento dado 30 variables N. 

Por ello, al escribir un procedimiento semejante debe comprobarse que 
no se va a seguir llamando a sí mismo indefinidamente. En el caso de FAC- 
TORIAL eso se consigue con la instrucción IF. 

Hay muchos problemas de proceso de datos cuya respuesta se plantea 
de forma recursiva y ahí el empleo de procedimientos recursivos simplifi- 
ca enormemente la programación. 

Sin embargo, debido a la mayor cantidad de memoria que emplean, de- 
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ben utilizarse con precaución y sólo en los casos en que una programa- 
ción no recursiva sea poco adecuada o impracticable. 

La función factorial se puede calcular de manera no recursiva mucho 
más eficientemente utilizando un bucle para multiplicar N por N-1 por N-2 
.«. por 1: 


«Calcular el factorial del parámetro transferido»: 


1. Guardar 1.0 en la variable F. 
2. Para I variando su valor desde 2 hasta el parámetro hacer: 

— Guardar en F su anterior valor multiplicado por el valor de I. 
3. Devolver el valor de F. 


En el programa bastaría con sustituir la parte de la función por: 


DECLARACION ANTICIPADA 
DE PROCEDIMIENTOS 


Existe la posibilidad de una recursión encubierta «a varias bandas»: 
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Al ejecutarse AAA, éste utiliza a BBB, que a su vez utiliza a AAA, etc. 

(BBB está, lógicamente, dentro del inmediato poseedor de AAA y, por 
ello, lo puede utilizar). 

Ligeramente distinto sería este otro caso de “dos bandas“. 


En principio, no sería posible compilar este programa, pues sólo se pue- 
de utilizar AAA desde detrás de su cabecera, y si se permutasen las posi- 
ciones, el problema se plantearía con BBB. 

El PASCAL permite superar este problema mediante la descripción an- 
ticipada de la cabecera de un procedimiento. 

Para ello, en un lugar suficientemente adelantado del programa se es- 
cribe la cabecera completa seguida de la palabra reservada FORWARD se- 


cabecera sin poner la descripción de la lista de parámetros (si los hay) ni 
el tipo, si es una función. 


De esta manera, cuando el PASCAL encuentra la llamada a AAA dentro 
del procedimiento BBB, ya sabe que es un procedimiento y que, en este 
caso, no tiene parámetros. 
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EJEMPLOS CON 
PRODECIMIENTOS 


ORDENACION DE DATOS 


menudo se plantea el problema de tener que ordenar, se- 
gún un criterio dado, un conjunto de datos del mismo 
tipo. Por ejemplo, puede hacer falta colocar por orden al- 
fabético los apellidos de los alumnos de un grupo, u or- 
denar de mayor a menor las notas de un examen. 

Vamos a resolver este último problema por el método 
conocido como de selección directa. Consiste en lo si- 
guiente: 

Supongamos que tenemos 10 notas guardadas en 
TABLA, una variable de tipo ARRAY. 

En primer lugar, hay que buscar la mayor nota de todas; una vez en- 
contrada se intercambia con la que ocupaba la primera posición de 
TABLA. Tras este proceso, TABLA contiene las mismas notas que al prin- 
cipio, sólo que con la mayor de todas en primera posición. 

A continuación se repite el mismo proceso, pero con las 9 notas res- 
tantes. Es decir, se busca la mayor de esas 9 (que están en las posiciones 
2 a 10) y una vez encontrada se intercambia con la que estaba en la posi- 
ción 2. Tras esto, TABLA sigue conteniendo la nota mayor en la posición 
1 y, además, la segunda mayor en la posición 2. 

Este proceso se repite para las posiciones 3 a 10 (con lo que queda la 
tercera nota en la posición 3), 4 a 10, etc., hasta llegar a hacerlo con las 


posiciones 9 a 10, momento en que queda TABLA definitivamente orde- 
nada. 


Por ejemplo, si las notas fueran: 
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al buscar la mayor de las diez se encuentra 9 en la cuarta posición; enton- 
es se intercambia con la de la primera posición, 2: 


le] 


Ahora se repite el proceso con todas menos la primera, permutándose, 
por tanto, el primer 7 con el 8 y llegándose a: 


Si utilizamos la variable 1 para indicar qué nota se está buscando (pri- 
mera, segunda ...) y TOTAL para indicar el total de notas, la estructura que- 
da así: 


— Para I variando su valor desde 1 hasta TOTAL-1 hacer: 
— Buscar la mayor nota de las comprendidas entre las posicio- 
nes 1 y TOTAL y permutarla con la de la posición 1. 


Cuando la mayor entre I y TOTAL es precisamente la de la posición l, 
no es necesario permutarla consigo misma; son las situaciones marcadas 
con (*) en el ejemplo. Por tanto, la estructura quedaría mejor de esta otra 
manera: 


— Para I variando su valor desde 1 hasta TOTAL-1 hacer: 
— Buscar la mayor nota de las comprendidas entre las posicio- 
nes l y si no es la de la posición 1, permutarla con ella. 


pu 
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Si añadimos las instrucciones necesarias para leer datos de teclado y 
presentarlos en pantalla, tenemos el siguiente programa: 


E OLEERATAS (AD TADIA. TIDOOM 


MN RED) 
PROCEDURE LEEDATOS (VAR TABLA: TIPO 


R TOTAL: INTEGER) 


OTAS: Y, 
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Si en lugar del test «TABLA[J] > MAYOR» se hubiera utilizado «TA- 
BLA[J] < MAYOR», las notas acabarían ordenadas de menor a mayor, pero 
entonces sería conveniente cambiar los nombres de MAYOR e INDICE- 
MAYOR por MENOR e INDICEMENOR, respectivamente, para que resul- 
taran coherentes. 

Si se tratara de poner por orden alfabético una serie de palabras, el pro- 
cedimiento sería similar. Supongamos que las palabras se guardasen en va- 
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riables de tipo ARRAY OF CHAR; entonces la tabla de palabras sería un 


ARRAY OF variables de ese tipo: 


PROGRAM ORDENAPALABRAS; 


CONST 

MAX = 100;  (* Máximo número de palabras *) 
LONG= 10; — (* Caracteres por palabra *) 
TYPE 

TIPOPALABRA = ARRAY [1..LONG] OF CHAR; 
TIPOTABLA —= ARRAY [1..MAX] OF TIPOPALABRA; 
VAR 

PALABRAS : TIPOTABLA; 

TOTALPALABRAS: INTEGER; 


El procedimiento ORDENA sería similar, pero jugando con palabras en 


lugar de con números reales: 


PROCEDURE ORDENA (VAR TABLA: TIPOTABLA; TOTAL: INTEGER); 
(* Ordena el contenido de la primera variable de la lista *) 


VAR 1,J, INDICEPRIMERA: INTEGER; PRIMERA: TIPOPALABRA; 
¡BEGIN 
FOR I:=1 TO TOTAL-1 DO 
BEGIN 
A *) 
(* Buscar la primera palabra de entre I y TOTAL.  *) 
(* En principio se toma por primera la de índice 1 *) 
(* y luego se exploran las siguientes: *) 
gg AZ *) 
PRIMERA:= TABLA[1]; 
INDICEPRIMERA:= I; 
FOR J:=1I+1 TO TOTAL DO 
1F ANTES (TABLA[J], (* que *) PRIMERA) THEN 
BEGIN 
(* La primera por ahora pasa a ser la de índice J *) 
PRIMERA: = TABLA[J]; 
INDICEPRIMERA:=J 


END; 
A y 
(* Si la primera no es la de índice 1, se permuta *) 
(* con ésta. *) 
A *) 


IF INDICEPRIMERA <> 1 THEN 
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Como se ve, el procedimiento es prácticamente idéntico al de las no- 
tas, solo que adaptado al nuevo tipo de variables y con algunos nombres 
distintos. Mientras que con las notas bastaba con la comparación 
«TABLA[J] > MAYOR» para saber qué nota iba por delante, para compa- 
rar dos palabras se utiliza la función ANTES. 

Esta función compara dos palabras letra a letra hasta encontrar el pri- 
mer par de letras distintas entre sí. Una vez localizadas mira a ver cuál va 
antes alfabéticamente. Se podría escribir así (y siempre por delante de 


Si las palabras se hubiesen guardado en variables de tipo STRING y no 
ARRAY OF CHAR, se habría podido poner directamente TABLA[J] < PRI- 
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MERA en lugar de ANTES (TABLA[J],PRIMERA) (con la mayoría de los 
compiladores de PASCAL). 

En definitiva, el procedimiento ORDENA se puede adaptar a práctica- 
mente cualquier tipo de variable, con tal de disponer de alguna función 
que nos permita decidir de entre dos valores cuál va por delante. 

Hay una gran variedad de métodos de ordenación, muchos de los cua- 
les son más eficientes que éste, pero para cantidades moderadas de datos 
el método de selección es suficientemente rápido además de ser muy sen- 
cillo de programar. 


UN 


LAS TORRES DE HANOI 


El juego de las Torres de Hanoi consiste en lo siguiente: 

Se tiene una cantidad dada de piezas de plástico, papel o cualquier otro 
material de manera que sean todas de forma similar, pero distinto tamaño 
que se puedan apilar. Por otra parte, existen tres lugares donde amonto- 
narlas, llamémosles A, B y C. 

Inicialmente las piezas se encuentran todas apiladas por orden de ta- 
maño en el sitio A, de manera que la mayor es la que se encuentra debajo 
de todas y la menor la última de todas. 

Se trata de pasar todas las piezas del sitio A al sitio C, moviéndolas de 
una en una y sabiendo que nunca se puede poner una pieza sobre otra que 
sea más pequeña. El sitio B se puede utilizar cuantas veces sea necesario 
para dejar piezas temporalmente. El jugador que consigue hacerlo en me- 
nor número de movimientos gana. 

Habitualmente se juega con aros y con tres palos verticales donde en- 
sartarlos para formar los montones. La situación de comienzo para una 
partida con tres aros sería, por tanto: 


<< 
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Para pasar el montón de tres a C hay que pasar primero los dos más 
pequeños a B, pasar entonces el disco mayor a C y luego pasar los otros 
dos de BaC. 

A su vez, para pasar los dos más pequeños de A a B, por ejemplo, hay 
que pasar primero el menor a C, mover el mediano a B y, por fin, poner 
el más pequeño en B. 

En general para mover un montón de N aros de un lugar de origen a 
otro de destino el procedimiento sería el siguiente: 


«Mover N aros desde origen a destino»: 


1. Mover el montón de N-1 aros que hay encima del número N desde 
origen al otro lugar que no es el destino. 

2. Mover el aro número N desde origen a destino. 

3. Mover el montón de N-1 aros desde el lugar en que se encuentra 
al destino. 


A su vez los puntos 1 y 2 constan exactamente de los mismos pasos, 
pero con un valor distinto de N y distinto origen y destino. Sólo cuando 
el montón fuera de uno, se movería sin más directamente. 

Como se ve este método de resolución es recursivo, pues se hace refe- 
rencia a sí mismo. La escritura del procedimiento en PASCAL es inmedia- 
ta. Para simplificar el procedimiento se van a guardar las torres en memo- 
ria como 0, 1 y 2 en lugar de como A, B y C. 


PASAARO sería un procedimiento que, si el programa tuviera gráficos, 
se encargaría de desplazar en el dibujo el aro en cuestión. En nuestro caso 
nos vamos a limitar a indicar qué movimiento habría que hacer (suponien- 
do que el disco más pequeño es el 1 y que están numerados por orden). 

Como las torres son 0, 1 y 2, su suma es siempre 3, por lo que dadas 
dos de ellas la tercera se obtiene restando las otras a 3. 
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El programa quedaría, por tanto, así: 


Este programa indica los movimientos a hacer para conseguir mudar 
la torre en la menor cantidad posible de jugadas. A poco que se practique 
se verá que el método es sistemático, por lo que sería posible programarlo 
de manera no recursiva con alguna estructura de bucle. Sin embargo, dado 
que nunca se juega con muchos aros, la cantidad de memoria utilizada no 
es excesiva y la solución recursiva es mucho más clara. 

Aunque los ejemplos de problemas recursivos presentados hasta ahora 
tienen una solución no recursiva bastante sencilla, no se debe pensar que 
siempre sucede así. Casos típicos en que la utilización de procedimientos 
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recursivos simplifica enormemente el trabajo son los programas de ges- 
tión de bases de datos y los propios programas compiladores. 


' 


BORRADO DE PANTALLA 


Hasta ahora se ha supuesto que nuestra versión de PASCAL tiene el pro- 
cedimiento predefinido CLRSCR o PAGE para el borrado de pantalla. 

Si al copiar un programa éste utilizara el procedimiento CLRSCR y fue- 
ra PAGE el disponible, podríamos cambiar, en todos los puntos en que apa- 
reciera, un nombre por el otro. Sin embargo parece mejor solución no 
cambiar nada y añadir aquello que falte. Por ello, incorporaríamos al pro- 
grama el siguiente procedimiento: 


Así, cada vez que apareciera CLRSCR se ejecutaría en realidad PAGE. 
Si fuera otro distinto bastaría con ponerlo dentro del procedimiento. 

Si no hubiera nada predefinido al respecto habría que incorporar al 
procedimiento las instrucciones necesarias para el borrado. La manera 
más sencilla sería escribiendo suficientes líneas en blanco para hacer de- 
saparecer todo lo que pudiera haber en la pantalla: 


El lector probablemente encontrará mejores métodos a poco que pro- 
fundice en las peculiaridades de su ordenador y de su lenguaje PASCAL. 

En cualquier caso, el ejemplo sirve para ilustrar cómo es posible crear 
los procedimientos y funciones que falten para hacer funcionar programas 
escritos con otras versiones de PASCAL. 
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Otro ejemplo podría ser el procedimiento GOTOXY, que sirve para po- 
ner el cursor en un determinado punto de la pantalla para así poder escri- 
bir en la zona que nos interese. La cabecera sería: 


Se deja al lector como ejercicio el escribir el resto del procedimiento. 
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MAS ESTRUCTURAS 
DE CONTROL 2 
Y TIPOS DE DATOS 


ON las estructuras de control que ya conocemos somos 
capaces de hacer que un conjunto de instrucciones se pue- 
da ejecutar en secuencia, de manera repetitiva o de ma- 
nera selectiva, según un criterio dado. Con esto es posi- 
ble, en teoría, construir cualquier programa. Sin embar- 
go, los programas pueden ser simplificados por medio de 
la utilización de dos nuevas estructuras, CASE y GOTO, 
que veremos a continuación. 

Además, vamos a ver un nuevo tipo de datos que per- 
mite trabajar con conjuntos de elementos y, por ejemplo, decidir si un ele- 
mento dado está o no en un conjunto: el tipo SET. 


LA ESTRUCTURA CASE 


Esta estructura podría considerarse como una estructura IF especial. 
IF, tal como la conocemos, permite escoger entre un máximo de dos posi- 
bilidades. 

En multitud de ocasiones, sin embargo, es preciso escoger entre más 
de dos alternativas. Recordemos el procedimiento WRITEDIA: 


: A 
EMIERCOLES THEN WRITE( Miércoles') ELS 


EX MWMDITE( Vieprres ) ELS 
ICRA TENA 
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También se podría haber escrito agrupando los diferentes IF de esta 
otra manera: 


que es algo menos eficiente, pero que funciona exactamente igual (si, por 
ejemplo, D fuera LUNES, tras escribir LUNES se volvería a comprobar si 
D es MARTES, etc., cosa que no sucede con el procedimiento en su forma 
original). 

La estructura CASE permite escoger entre varias instrucciones, según 
sea el resultado de una expresión dada. El tipo resultante de esta expre- 
sión debe ser INTEGER, CHAR o cualquier otro tipo escalar creado por no- 
sotros. WRITEDIA se escribiría así: 


La expresión (en este caso una variable) cuyo valor controla la deci- 
sión a tomar se escribe entre las palabras reservadas CASE y OF. 

Tras esto se escriben las diferentes instrucciones a escoger separadas 
entre sí por punto y coma. Además, delante de cada una y separada por 
dos puntos debe escribirse la lista de uno o más valores (separados por co- 


131 


mas) para los que debe ejecutarse esa instrucción. Un valor dado sólo pue- 
de aparecer en, a lo sumo, una lista. 

Para terminar la estructura CASE se escribe la palabra reservada END, 
tras la que podrían venir otras instrucciones separadas por punto y coma. 

Hay que considerar qué sucede cuando el resultado de la expresión no 
se encuentra en ninguna de las listas. En las primeras versiones de PAS- 
CAL se producía un mensaje de error y el programa se detenía. Las ver- 
siones posteriores simplemente no ejecutan ninguna de las instrucciones 
de la estructura CASE y pasan a lo que venga a continuación. 

La mayoría de los compiladores de PASCAL actuales permiten, sin em- 
bargo, definir opcionalmente una instrucción alternativa que se ejecutaría 
en estos casos. Para ello se escribe esta instrucción antes de la palabra 
END final precedida de la palabra reservada ELSE u OTHERWISE, según 
el compilador que se utilice (estamos ante algo no estándar del PASCAL y 
de ahí la posibilidad de que no en todas las versiones de PASCAL se utilice 
la misma palabra). Veamos un ejemplo: 
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Igual que sucede con la estructura IF, las instrucciones a escoger pue- 
den ser simples, como en el ejemplo, o de cualquier otro tipo (REPEAT, 
FOR...), incluso secuencias de instrucciones. Para terminar, veamos otro 
ejemplo: 


PROGRAM CALCULADORA; 
VAR N1,N2: REAL; OPCION: INTEGER; 


PROCEDURE PIDENUMEROS (VAR A,B: REAL); 

(* Lee dos números de teclado *) 

BEGIN 

VRITELN (“Primer número: *); READLUN (A); 
VRITELN ("Segundo número: “); READLN (B) 
END; 


BEGIN 
REPEAT 
(* Poner aquí CLRSCR; o PAGE; etc. para borrar la pantalla. *) 
WRITELN; 
WRITELN (“1 = Sumar dos números.*); 
VRITELN (*2 - Restarlos.*); 
WRITELN ("3 - Multiplicarlos.”); 
WRITELN (4 - Dividirlos.”); 
WRITELN (5 - Obtener la raíz cuadrada.*); 
VRITELN ("6 - Acabar programa.*); 
WRITELN;- 
WRITE ("Escoja opción: ”); READLN (OPCION); WRITELN; 


CASE OPCION 0F 

1: BEGIN 
PIDENUMEROS (N1,N2); 
WRITELN (“Su suma vale *,N1+N2) 
END; 

2: BEGIN 
PIDENUMEROS (N1,N2); 
WRITELN (“Su resta vale *,N1-N2) 
END; 

3: BEGIN 
PIDENUMEROS (N1,N2); 
WRITELN ("Su multiplicación vale * ,N1*N2) 
END; 

+: BEGIN 
PIDENUMEROS (N1,N2); 
WRITELN ("Su división vale ” ,N1/N2) 
END; 

5: BEGIN 
WRITE( Número: *);  READLN (N1); 
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LA INSTRUCCION GOTO 


La instrucción GOTO («ir a») hace que se continúe ejecutando el pro- 
grama en otro punto distinto a aquél en que se encuentra en ese momen- 
to. Por decirlo de otra manera, permite «saltar» a cualquier punto del pro- 
grama desde el lugar en que se encuentra la instrucción. Es equivalente a 
la instrucción GOTO de otros lenguajes como BASIC o FORTRAN. 


El PASCAL tiene todas las estructuras de control necesarias para cons- 
truir un programa, por lo que en multitud de ocasiones se le ha descrito 
de manera pobre y superficial como un «lenguaje para programar sin 
GOTO». 

Sin embargo, hay casos (pocos) en que la utilización de GOTO puede 
simplificar un programa y por ello se contempla su uso en PASCAL. Estos 
casos suelen ser aquéllos en que, por algún suceso extraordinario, se de- 
sea cambiar la marcha normal de un programa. En cualquier caso, dada 
su gran potencia, debe utilizarse con gran cuidado y sólo en casos muy es- 
peciales. 

La instrucción consta de la palabra reservada GOTO, seguida de la eti- 
queta del punto al que se desea transferir control. Esta etiqueta puede ser 
cualquier número entero de cuatro cifras como máximo, aunque algunas 
versiones de PASCAL permiten también el empleo de palabras o identifi- 
cadores válidos. La etiqueta debe estar escrita justo antes de la instrucción 
a la que se desea saltar separada de ella por dos puntos. 

Tan excepcional se considera su utilización que todas las etiquetas que 
se vayan a utilizar deben ser declaradas previamente tras la cabecera del 
programa (o procedimiento) y antes de la definición de datos de la siguien- 
te manera: 


es decir, tras la palabra reservada LABEL se escriben las diferentes etique- 
tas separadas entre sí por comas. Para terminar, se escribe un punto y 
coma. 

Caso típico de utilización de GOTO es aquél en que se detecta un error 
en una fase temprana de la ejecución de un programa y se desea entonces 
que se detenga. Para conseguir esto último se podría hacer: 


Es decir, poner como condición para la ejecución de lo que viene a con- 
tinuación la no existencia de error. Si, por ejemplo, el error se detectara 
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dentro de una estructura REPEAT, habría que poner también a éste como 
condición de salida del bucle: 


Una importante restricción a tener en cuenta es que sólo se puede sal- 
tar a un punto dentro del mismo bloque de programa en que nos encon- 
tremos en el momento del salto, es decir, no se puede ir desde dentro de 
un procedimiento a otro, o desde el programa principal a una función, etc. 
Por otra parte, el salto al interior de una instrucción estructurada (IF, FOR 
...) desde fuera de ella puede producir errores inesperados: 


PPP PAX ¿[AP 5 


y programar «al estilo BASIC». En ese caso es que no ha comprendido el 
propósito y las ventajas de la programación estructurada. Sin embargo, 
tampoco se debe ser purista y complicarse la vida para no utilizar jamás 
la instrucción GOTO. La norma que hay que seguir en todo momento es 
la de la máxima claridad y, si ésta se consigue con GOTO, no hay que du- 
dar en utilizarla. 

Nota: La utilidad de acabar la ejecución de un procedimiento median- 
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te un salto al final es tal, que muchos compiladores disponen de una ins- 
trucción de salto especial para ello, que suele escribirse como EXIT (sa- 
lida). 


EL TIPO SET 


Volvamos al programa CALCULADORA. Las opciones 1, 2, 3 y 4 utili- 
zan todas, en primer lugar, la instrucción PIDENUMEROS (N1,N2). En lu- 
gar de esto se podría hacer el programa más corto si, antes de la instruc- 
ción CASE, se escribiera la única instrucción: 


En otras palabras, llamar a PIDENUMEROS si OPCION es alguna del 
conjunto formado por 1, 2, 3 y 4. 

Supongamos ahora que las opciones no fueran éstas, sino, por ejem- 
plo, 1, 3, 4 y 5. Como ya no son consecutivas, para detectar que OPCION 
es alguna de ellas habría que utilizar un test mucho más complejo que ade- 
más no valdría si en algún momento cambiásemos las opciones del pro- 
grama que utilizan el procedimiento: 


IF (OPCION=1) OR ((3 <= OPCION) AND (OPCION <= 5) THEN... 
El PASCAL permite definir CONJUNTOS (sets en inglés) de elementos, 


de manera que se puedan utilizar con comodidad. Por ejemplo, los con- 
juntos formados por 1, 2, 3, 4 y 1, 3, 4, 5 se escribirían así: 


[1,2,3,4] o [1,3,2,4] o [4,3,2,1] etc., para el primero, y 
[1,3,4,5] o [1,5,4,3] etc., para el segundo 


es decir, poniendo entre corchetes la lista de elementos que los forman se- 
parados por comas; da lo mismo el orden que se utilice. Cuando varios de 


los elementos están seguidos, como es el caso de todos los del primer con- 
junto y tres del segundo, es posible definirlos de manera abreviada: 


[1..4] para el primero y [1,3..5] o [3..5,1] para el segundo 


utilizando, por tanto, una notación similar a la de los subrangos. 
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Antes de entrar en detalles veamos una primera aplicación de los con- 
juntos: dado un elemento es posible saber si se encuentra en un conjunto 
utilizando el operador IN, que devuelve según el caso el resultado lógico 
TRUE (caso de encontrarse) o FALSE. Con este operador las dos instruc- 
ciones IF anteriores se escribirían de la siguiente manera: 


Es posible definir variables de tipo conjunto, es decir, variables donde 
poder guardar un conjunto de elementos. Por ejemplo: 


definiría las variables ESPECIALES y DIASLIBRES que sirven, respectiva- 
mente, para guardar cualquier conjunto de números entre 1 y 6 y cual- 
quier conjunto de días de la semana. O sea, tras las palabras reservadas 
SET y OF se indica el tipo de elementos que pueden formar parte del con- 
junto, que debe ser siempre de tipo escalar o subrango de éstos. Como su- 
cede con otros tipos, es posible definir antes el tipo conjunto: 


Para guardar conjuntos en una variable se utiliza el operador de asig- 
nación de la manera conocida: 


OO POABARA MMTUERS 
4 SABADO > DOMINGO 


Con estas asignaciones se podría escribir: 


Dependiendo del compilador, hay un límite para el máximo número de 
elementos que pueden tener los conjuntos; habitualmente es 256. Por ello, 
no se podría definir un SET OF INTEGER, pues un conjunto de estas ca- 
racterísticas podría llegar a tener miles de elementos. El mayor conjunto 
del tipo TIPOMENU sería, sin embargo, [1,2,3,4,5,6] que tiene seis ele- 
mentos. 

En todo caso, el menor conjunto posible es el vacío, aquél que no tie- 
ne ningún elemento; se describe simplemente con dos corchetes: []. 


Expresiones con conjuntos 


Las operaciones entre conjuntos que dan como resultado otro conjun- 
to son la unión, la intersección y la diferencia, que se indican, respectiva- 
mente, con los signos + , * y — . En caso de necesidad se pueden utilizar 
paréntesis. 

La unión de dos conjuntos da como resultado otro del mismo tipo for- 
mado por los elementos de ambos: 


[A E] + ['A*,17] da como resultado ['A',E', 1]; 
[1] + [2] da como resultado [1,2]; 
[] + [LUNES] da como resultado [LUNES]; 


La intersección, sin embargo, da el conjunto formado por los elemen- 
tos comunes a ambos: 


[A EJ * [[A*,1] da como resultado ['A“]; 
[1,2] * [3,4] da como resultado [ ]; 
[LUNES] * [LUNES,MARTES] da como resultado [LUNES]; 


Por último, la diferencia devuelve el conjunto formado por los elemen- 
tos del primero que no se encuentran en el segundo: 


[AE T- PAST] da como resultado [*E'); 
[LUNES,MARTES] - [LUNES] da como resultado [MARTES]; 
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Operaciones lógicas con conjuntos 


Ya conocemos la prueba de pertenencia que se escribe poniendo en pri- 
mer lugar el elemento (constante, variable o expresión) cuya pertenencia 
a un conjunto se desea comprobar, seguida de la palabra reservada IN tras 
la que viene el conjunto en cuestión (o variable o expresión de tipo con- 
junto). Formas correctas son: 


LUNES IN (DIASLIBRES -[LUNES]) que daría como resultado FALSE y 
1+2 IN ESPECIALES que daría como resultado TRUE. 


Entre dos conjuntos se pueden utilizar las siguientes operaciones: 


— Igualdad: 


[1,2,3] = ([2,1] + [3]) es TRUE, mientras que 
DIASLIBRES = [] es FALSE. 


— Desigualdad: 


[1,2,3] <> ([2,1] + [3]) es FALSE, mientras que 
DIASLIBRES <> [] es TRUE. 


— Inclusión (es decir, comprobar que todos los elementos de uno de 
ellos están en el otro): 


[B',C] <= ['A*/B',C',D'] es TRUE (el primero está contenido 
en el segundo). 


['A*..Z] >= [0] es FALSE (el segundo no está en el primero). 
[ ] <= DIASLIBRES es TRUE. 
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Ejemplo 


Supongamos que hay que formar equipos de fútbol con los alumnos de 
una clase. Los alumnos se encuentran numerados empezando por el 1. Va- 
mos a escribir un programa al que se le tecleen los números de los alum- 
nos de los diferentes equipos y que después nos diga qué partidos no son 
posibles. 

Los equipos los guardaríamos en variables de tipo «conjunto de alum- 
nos» pero, como puede haber varios, será una tabla de ellas lo que utili- 
cemos: 


CAMITODAS 


ATENAS ES 
CONJUNTO [EQUIPO ] 
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Supongamos que hubiera 4 equipos. En este caso, los partidos posibles 
(en principio) serían: 


— el 1 contra los equipos 2, 3 y 4 
— el 2 contra los equipos 3 y 4 
— el 3 contra el equipo 4 


y de ahí los dos bucles FOR utilizados. Por otra parte, la condición para 
que un partido se pueda celebrar es que los dos equipos no tengan juga- 
dores comunes. 
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REGISTROS J4 


OS registros o fichas (records, en inglés) se utilizan en 
multitud de actividades de la vida diaria. En un banco pue- 
de que se utilicen para guardar el nombre de cada cliente 
y el saldo de sus diferentes cuentas; en una central leche- 
ra, para el número, fecha y destino de los diferentes lotes 
de leche; en una biblioteca, para el título, autor, editorial 
y estante de cada libro, etc. 

Actualmente cada vez se utilizan más los ordenadores 
para manejar este tipo de cosas. Sin ellos los bancos, por 
poner un ejemplo, serían incapaces de gestionar la enorme cantidad de 
cuentas que tienen hoy día. 

Del PASCAL, por ahora, sólo conocemos el tipo ARRAY para guardar 
diferentes cosas en una misma variable, pero todas han de ser del mismo 
tipo; sin embargo, las fichas pueden tener información muy variada. El 
nombre del titular de una cuenta sería un dato del tipo ARRAY OF CHAR, 
mientras que el saldo sería de tipo REAL. 

El PASCAL permite crear registros ajustados a nuestras necesidades. 
Las diferentes partes de un registro se denominan CAMPOS, así, las fichas 
de la central lechera tendrían tres campos para los tres diferentes datos de 
que constan. Al definir el tipo de ficha estos campos se deben describir de 
la siguiente manera: 


TYPE FICHA = RECORD CAMPO!1: TIPO1; CAMPO2: TIPO? ... END 


es decir, entre las palabras reservadas RECORD y END y separados por 
punto y coma se deben escribir los nombres de los diferentes campos se- 
guidos de dos puntos y el tipo de dato que sean. Cuando dos campos o más 
son del mismo tipo, se puede ahorrar escritura poniendo sus nombres uno 
detrás de otro separados por comas, tras lo cual vendrían los dos puntos 
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y el tipo. (Por supuesto, es posible detinir una variable poniendo a su lado 
directamente la descripción del tipo, pero siempre es mejor definir éste 
previamente.) 

Los campos pueden ser de absolutamente cualquier tipo o subrango de 
tipo que esté previamente definido. 

Supongamos que se desea guardar la fecha en una variable de tipo re- 
gistro. Esta tendría tres campos: los de día y año, que serían números en- 
teros, y el mes, que sería de tipo TIPOMES: 


Como sucedía con las variables de tipo ARRAY, la única operación po- 
sible con todos los elementos de un registro a la vez es la asignación: 


Esto copiaría los campos de FECHADEHOY, uno por uno, en los de NA- 
CIMIENTO. 

Para hacer referencia a un campo en concreto de un registro se escri- 
be, en primer lugar, el nombre del registro seguido de un punto y del nom- 
bre del campo: 


Como el campo DIAMES es de tipo INTEGER, FECHADEHOY.DIAMES 
se puede utilizar exactamente igual que cualquier variable INTEGER. 
Por tanto, la parte de instrucciones del programa cuyos datos hemos 


descrito antes podría ser: 


FEECHADEHOY MES. = AG 
LONADENOT. Eo — := Au 
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LA ESTRUCTURA WITH 


Está claro que resulta muy incómodo tener que escribir el nombre del 
registro cada vez que se utiliza un campo, pero es inevitable para no con- 
fundir los campos de dos registros del mismo tipo. Si en una parte del pro- 
grama sólo se hiciera referencia a un registro en concreto sería bueno po- 
der decirle al compilador algo como: «Bueno, en toda esta zona sólo voy 
a trabajar con el registro Tal, por lo que discúlpame de poner su nombre 
cada vez.» 

Esto se puede hacer de la siguiente manera: 


Se escriben en primer lugar las palabras reservadas WITH y DO con el 
nombre del registro entre medias, y detrás la instrucción en la que se va 
a omitir su nombre. Si fueran varias, se enmarcan por delante y detrás con 
las palabras reservadas BEGIN y END, respectivamente: 


En la mayoría de los compiladores la estructura WITH no sólo hace los 
programas más cortos y claros, sino que, además, permite hacerlos más rá- 
pidos. 

El campo de un registro puede ser a su vez otro registro. Vamos a ver 
cómo podría empezar un programa que manejara las fichas de la central 
lechera: 


DAY 11-191 0F CHM 
A 


DK Pp 
MG AS FOTO 1 
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DIAMES, ANYO : INTEGER; = 


MES -HIPOMES = 
END; = 

TIPOFICHA-=-RECORD - 
LOTE: INTEGER; 


FECHA-——:-TIPOFECHA; 
DESTINO: TIPOCIUDAD: 
END; 

VAR 

LOTEDEHOY: TFIPOFICHA; 


BEGIN 
WITH LOFEDEHOY DO -(* "Con LOTEDEHOY haz:"-*) 
BEGIN 
LOTE 11234; 
(FECHA 6s- un registro con tres campos: *) 
FECHA. DIAMES:= 26; 
FECHA. MES ——:=-AGOSTO; 
FECHA-ANYO——==-1986; 
DESTINO = GUADALAJARA (4-12 letras *) 


Si no se utilizara WITH, habría que poner LOTEDEHOY.FECHA para 
referirse a la fecha y como ésta a su vez es un registro, habría que escribir 
LOTEDEHOY.FECHA.MES para el mes en concreto. Sin embargo, se po- 
dría poner otro WITH para FECHA: 


WITH LOTEDEHOY DO -—(*- "Com LOTEDEHOY haz:" *) 


BEGIN 
LOTE :=-1234; 
WITH -FECHA-DO 
BEGIN 
DIAMES:= 26; 
MES-—==-AGOSTO; 
ANYO——:=-1986 
END; 
DESTINO := “GUADALAJARA” —(* 12 letras *) 
END; 


o, de manera más clara: 


WITH LOTEDEHOY- DO WITH FECHA-DO 
BEGIN 
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Tras WITH LOTEDEHOY DO sólo hay otra instrucción, WITH ...(que 
engloba a su vez a las demás), por lo que no se utiliza el par BEGIN/END. 

Se pueden poner unos bloques WITH dentro de otros siempre que 
correspondan a registros de diferente tipo y que estén unos completamen- 
te dentro de otros. 

Cuando el PASCAL encuentra una estructura WITH toma nota de la 
porción de memoria en que se encuentra el registro, y esa anotación es la 
que utiliza para los campos. Por ello, una instrucción como 


en que TABLA fuera un ARRAY OF TIPOFICHA siempre mostraría el nú- 
mero de lote de la ficha 3, que es la que aparecía junto a WITH al llegar 
ahí. Para presentar los diferentes lotes lo correcto sería: 


para que cada vez que se pase por WITH la ficha sea la adecuada. 


REGISTROS VARIANTES 


A veces el aspecto de un registro depende del valor de uno de los cam- 
pos. Por ejemplo, en las fichas de personal de una empresa podrían estar 
los datos del cónyuge sólo si el estado civil fuera casado. En PASCAL es 
posible definir fichas con campos fijos y con otros que pueden variar se- 
gún el valor de alguno de aquéllos. 
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Veamos un ejemplo: 


TIPOFECHA = RECORD - : 
SS ANYO : INTEGER; == - 
: (ENERO, FEBRERO, MARZO, ABRIL, MAYO, JUNIO, JULIO, 
AGOSTO, SEPTIEMBRE, OCTUBRE, NOVIEMBRE,  ¿DEGEEMBRE) 
END; == 
TIPONOMBRE= ARRAY [1. .203 OF CHAR: = 
TIPOFICHA = RECORD a == 
- NOMBRE: - TIPONOMBRE; — : 
EDAD: 16.70 
CASE ESTADOCIVIL: CSOLTERO, CASADO, DIVORCIADO, VIUDO) oF 
SOLTERO: (); == : 
CASADO : (CONYUGE: TIPONOMBRE ; FECHABODA: TIPOFECHA); 
DIVORCIADO, VIUDO: (FINAL: TIPOFECHA) 
END; 


SICOALAOAAAAADAADIARAAADADADNA 


Con esta estructura, todas las fichas tienen los campos NOMBRE, EDAD 
y ESTADOCIVIL. Además, y según el valor de éste último campo, tienen 
los campos CONYUGE y FECHABODA si es casado, y el campo FINAL 
cuando es viudo o divorciado. Nótese que algunos de los tipos utilizados 
han sido definidos sobre la marcha al definir el registro, mientras que otros 
lo han sido con anterioridad. 

Los campos variables siempre deben estar al final del registro y a con- 
tinuación del campo que decide la estructura (ESTADOCIVIL en este 
caso), utilizándose algo muy similar a la instrucción CASE, sólo que po- 
niendo a continuación de cada posible valor, y entre paréntesis, la lista de 
campos específicos que le corresponden. Un nombre de campo no puede 
aparecer repetido en varias listas. 

Para escribir el contenido de un registro semejante haríamos: 


PROCEDURE PONFECHA (F: TIPOFECHA); 


(* Presenta la fecha con números: 23-11-86 etc. *) 
BEGIN 


VITH F DO WRITE (DIAMES:2,*-” ORD(MES)+1:2,”-" ,ANYO MOD 1900: 2) 
END; 


PROCEDURE PRESENTA (FICHA: TIPOFICHA); 
(* Presenta las diferentes partes de una ficha *) 


BEGIN 
WITH FICHA DO 
BEGIN 
WRITELN (“Nombre: * NOMBRE); 
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A pesar de tener diferentes campos según el valor de ESTADOCIVIL, 
la porción de memoria ocupada por una ficha cualquiera es siempre la mis- 
ma e igual a la necesaria para el caso en que se precise más, que en este 
caso es cuando la ficha tiene los campos NOMBRE, EDAD, ESTADOCIVIL, 
CONYUGE y FECHABODA. 

Algunas versiones de PASCAL existentes para ordenadores domésticos 
carecen de la posibilidad de crear registros variantes. 
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ALMACENAMIENTO 
EN MEMORIA 
DE REGISTROS 


ON lo que sabemos por ahora, si hubiera que guardar en 
memoria muchas fichas para, por ejemplo, ordenarlas se- 
gún algún criterio, utilizaríamos estructuras de tipo 
ARRAY OF RECORD. Este tipo de almacenamiento se de- 
nomina estático, pues la porción de memoria destinada a 
las fichas se asigna al escribir el programa y no cambia du- 
rante su ejecución. Hasta ahora, todos los ejemplos que 
hemos visto han utilizado almacenamiento estático. 

Existe, no obstante, un método de almacenamiento en 
memoria denominado dinámico, que permite reservar porciones de me- 
moria sobre la marcha e incluso utilizar una determinada zona para dife- 
rentes cometidos en diferentes momentos. 

Vamos a escribir un programa para ordenar por orden alfabético de 
apellidos las fichas de los diferentes clientes de un banco, utilizando las co- 
sas de PASCAL que conocemos por ahora. En primer lugar, las fichas se 
leerán y guardarán en una tabla; a continuación se procederá a ordenarlas 
y, por último, se mostrarán en pantalla. 

Las fichas tendrán campos para un máximo de tres saldos, aunque, 
como se verá en seguida, el poner otros campos no supondría grandes cam- 
bios. 


MIN 


131 


052 


SALDO1,SALDO2,SALDO3: REAL 
END; 
TABLA= ARRAY [1... MAXNUM] OF FICHA; 


VAR 


CLIENTES: TABLA; 
NUMERO, I : INTEGER; 


RA <_——_AÁÓA AA A *) 
FUNCTION ANTES ( A,B: TEXTO): BOOLEAN; 
(* Devuelve TRUE si A va por delante de B alfabéticamente *) 
VAR 1: INTEGER; 
BEGIN 
1:=0; 
REPEAT I:=1+1 UNTIL ( A[I] <> B[IJ ) OR ( I=MAXLONG ); 
ANTES:= ( A[I] < B[IJ ) 
END; 
A a e e e *) 
PROCEDURE ORDENA (VAR T: TABLA; TOTAL: INTEGER); 
(* Ordena el contenido de la tabla T *) 
VAR 1,J, INDICEPRIMERA: INTEGER; PRIMERA: FICHA; 
BEGIN 
FOR 1:=1 TO TOTAL-1 DO 
BEGIN 
ás +) 
(* Buscar la primera ficha de entre 1 y TOTAL. *) 
(* En principio se toma por primera la de índice 1 *) 
(* y luego se exploran las siguientes: *) 
Pg -É —————— A) 
PRIMERA:= 1 [1]; 
INDICEPRIMERA:= 1; 
FOR J:=1+1 TO TOTAL DO (* Comparar apellido: *) 
IF ANTES (T[J]. APELLIDO, PRIMERA. APELLIDO) THEN 
BEGIN 
(Ct La primera por ahora pasa a ser la de índice J *) 
PRIMERA:= T (3); 
INDICEPRIMERA: =J 
END; 
PA e ARSS *) 
(* Si la primera no es.la de índice I, se permuta *) 
(* con ésta. *) 
qÉ——————————__———_—__———_——————————— 
1F INDICEPRIMERA <> 1 THEN 
BEGIN 
Y [INDICEPRIMERA]:=T [1]; 
T [1]: =PRIMERA 
END 
END 
END; 
A __ _ 


Como se ve, si quisiéramos añadir más campos a las fichas, lo único 
que habría que cambiar, además de la descripción de las fichas, serían los 
procedimientos LEEDATOS y PRESENTADATOS. El procedimiento OR- 
DENA es prácticamente igual al que ya se estudió en su momento. 


ALMACENAMIENTO DINAMICO 


El programa anterior, al utilizar almacenamiento estático, tiene el in- 
conveniente de que el máximo número de fichas (100) está definido al 
crear el programa. 
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Para evitar que pueda quedarse corto hay que ponerlo suficientemente 
grande, pero entonces habrá ocasiones en que sólo se utilizará una peque- 
ña parte de la memoria reservada al principio. 

En PASCAL es posible crear variables no en el momento de escribir el 
programa, sino cuando éste se está ejecutando y a medida que se vayan ne- 
cesitando. Al no estar definidas en la zona de declaración de datos, estas 
variables no tienen nombre y para ello se utiliza lo que se denomina PUN- 
TEROS. 

Un puntero es una variable especial que sirve para guardar una indica- 
ción de en qué sitio de la memoria se encuentra un registro. Si escribimos: 


tendremos que todas las variables de tipo TIPOPUNT son punteros que sir- 
ven para «apuntar» a variables de tipo FICHA. Es decir, el tipo de puntero 
se indica con el símbolo ” seguido del tipo de variable al que apunta. 

Cuando el programa ya está funcionando, para reservar sitio para una 
ficha se utiliza la función NEW (nuevo, en inglés): 


e. 


de esta manera se reservaría memoria para una variable de tipo FICHA y 
su dirección quedaría guardada en la variable A. Cuando quisiéramos uti- 
lizar la ficha, en lugar del nombre que no tiene pondríamos A”, que signi- 
fica «la variable apuntada por A» y es totalmente equivalente. 

La única operación posible entre punteros es la asignación, es decir, 
guardar el contenido de uno en otro. 

Para guardar muchas fichas necesitaríamos tener tantos punteros como 
fichas, por ejemplo, con un ARRAY [1..MAXNUM] OF TIPOPUNT, con lo 
que si esta tabla de punteros se llamara CLIENTES (la antigua ya no exis- 
te), para leer las fichas haríamos: 


y de manera similar con el resto del programa principal y el procedimien- 
to ORDENA. Este último, no obstante, podría ser mejorado ligeramente, 
pues para permutar dos fichas bastaría con permutar el contenido de sus 
dos punteros sin tocarlas a ellas para nada. 

Esta manera de proceder sigue teniendo el mismo problema que la an- 
terior, aunque menos grave, pues, al ocupar un puntero mucha menos me- 
moria que una ficha, nos podríamos permitir preparar la tabla con un nú- 
mero sobradamente amplio de elementos. 

Una solución mejor podría ser guardar el puntero de cada ficha en la 
anterior a ella, en un campo especialmente preparado para ello. 

Para llegar a una ficha dada habría que tomar de la primera el puntero 
que alberga y con él podríamos utilizar ya la segunda ficha, de la que to- 
maríamos el puntero que lleva a la tercera, etc., hasta encontrar la ficha 
deseada. 

De esta manera, tanto punteros como fichas se irían reservando en me- 
moria según se fueran necesitando. Las fichas quedarían más o menos así: 


Esto es lo que se denomina una estructura de tipo cola. Haría falta, ade- 
más, un puntero aparte para utilizar el primer elemento. Para indicar que 
un elemento de la cola es el último lo que se hace es dar al puntero que 
alberga el valor predefinido NIL, cuyo significado es que no apunta a nin- 
guna variable. 

Veamos cómo se escribiría un programa que simplemente fuera guar- 
dando fichas para presentarlas luego: 


LSO 
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CONST MAXLONG=20; (* Máxima longitud de los nombres *) 
TYPE 
TEXTFO= ARRAY [1,.MAXLONG] OF CHAR; 
PUNTERO= “FICHA; ——(* Sirve para apuntar a fichas *) 
FICHA= RECORD 
NOMBRE , APELLIDO: TEXTO; 
SALDO1, SALDO2, SALDO3: REAL; 
SIGUIENTE: PUNTERO 
END; 
VAR 
PRIMERO, (* Apuntará al primer elemento de la cola *) 
ULTIMO, (* y éste al último. *) 
p : PUNTERO; 
FICHANUEVA: FICHA; 
FIN : BOOLEAN; 
Ru-AÓAÁA AA A A rd +) 
PROCEDURE LEEDATOS (VAR F: FICHA); 
BEGIN 
WITH F DO 
BEGIN 
WRITELN; 
WRITE (Apellido: *); READLN (APELLIDO); 
VRITE (“Nombre : ”); READLN (NOMBRE); 
VRITE (Cuenta 1: ”); READEN (SALDO1); 
WRITE ('Cuenta 2: '); READEN (SALDO2); 
WRITE (“Cuenta 3: *); READLN (SALDO3) 


END 
END; 
A) 
PROCEDURE PRESENTADATOS (F: FICHA); 
BEGIN 
WITH F DO 
BEGIN 
WRITELN; 
WRITELN (Apellido: *, APELLIDO); 
VRITELN ("Nombre * NOMBRE); 
VRITELN (“Cuenta 1: ” ,SALDO1:10:2); 
WRITELN-(' Cuenta 2: *,SALDO2:10:2); 


WRITELN ("Cuenta 3: *,SALDO3:10:2) 
END 


Por rn +) 
(ft Leer primera ficha y reservarle sitio dejando su dirección *) 


(ten el puntero PRIMERO y en ULTIMO (por ahora): *) 


WRITELN (' Introduzca 0 como apellido para terminar.” >); 
LEEDATOS (FICHANUEVA); 
IF FICHANUEVA. APELLIDO [13 <> “0” THEN 


BEGIN 
NEW (PRIMERO); 
PRIMERO” := FICHANUEVA; (* Guardar la ficha *) 


PRIMERO” . SIGUIENTE: = NIL; (* No más fichas detrás *) 
ULTIMO — := PRIMERO; 

END 

ELSE GOTO 10; (%*-Si-no hay ni una ficha, acabar *) 


A 


AR —A) 
(* Leer las siguientes fichas hasta que se dé apellido 0: *) 
A e e ad *) 
REPEAT 

LEEDATOS (FICHANUEVA); 

FIN:= (FICHANUEVA. APELLIDO [1] = "0'); 

IF NOT FIN THEN 

BEGIN 

TEE *) 

(* Reservar sitio dejando su dirección en la última *) 

(ficha. ULTIMO pasa a apuntar a la nueva ficha. —*) 


NEW (ULTIMO”.SIGUIENTE); 
ULTIMO: = ULTIMO”, SIGUIENTE; 


ULTIMO” :=- FICHANUEVA; (* Guardar la ficha *) 
ULTIMO” SIGUIENTE: = NIL (* No más fichas detrás *) 
END 
UNTIL FIN; 
Ar) 


(* Presentar las fichas hasta llegar a la última. *) 
(* El puntero P va apuntando a las sucesivas fichas: *) 


¡q _ÁAÓA<AK<K<A<KAK<A<AKA<K<A<K<A<A<A<A<A<AAA<A<A<A2 AA AA 2 2 22 A) 
P:= PRIMERO; 

WHILE P <> NIL- DO (%* Mientras que P apunte a una ficha...*) 
BEGIN 


PRESENTADATOS (P”); 
P:=P* SIGUIENTE —(* Pasa a apuntar a la siguiente ficha *) 
END; 


10: END. 


Al definir el tipo PUNTERO se ha hecho referencia al tipo FICHA que 
todavía no estaba definido. Este es uno de los pocos casos en que esto está 
permitido. Si se hiciera primero la definición de FICHA, como en ésta se 
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hace a su vez referencia al tipo PUNTERO que todavía no estaría definido, 
se produciría un error. 

Sin embargo, algunos compiladores no toleran esta situación, por lo 
que habría que definir FICHA de la siguiente manera: 


y al definir los otros punteros se pondría también “FICHA. 
Desafortunadamente, hay compiladores con los que, como el campo SI- 
GUIENTE y las variables no se han descrito utilizando la misma definición 
previa, son conceptuados como de distinto tipo y no es posible asignarlos 
unos a otros. En este caso, para guardar la dirección de la primera ficha, 
por ejemplo, se podría utilizar el campo SIGUIENTE de una ficha que lla- 
maríamos ANTESQUEPRIMERA, cuyos otros campos se desperdiciarían. 


Para la ordenación de los datos de una cola hay multitud de métodos 
muy eficaces cuya descripción escapa al alcance de este libro. Sólo hare- 
mos notar que para ordenarlos no hay necesidad de intercambiar las dife- 
rentes fichas (como sucedía al ordenar tablas); basta con reajustar los pun- 
teros, lo cual supone una mayor rapidez del proceso. En la cola del pri- 
mer ejemplo: 


(PRIMERO) 
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Aunque se ha introducido el concepto de puntero como algo ligado a 
los registros, en realidad se pueden definir punteros para apuntar a cual- 
quier tipo de variable: 


PUNT: “ARRAY[1..10000] OF INTEGER; 


pero sólo en casos especiales tienen interés (como, por ejemplo, con el 
compilador TURBO PASCAL, para tener más de 64 Kbytes de variables 
«seudo-estáticas»). 


UN 


Control de la memoria ocupada 


En el programa COLA se podrían introducir fichas indefinidamente has- 
ta llegar a llenar toda la memoria disponible en el ordenador. Si, al inten- 
tar reservar espacio para una nueva variable, no hubiera ya suficiente es- 
pacio, se produciría un error y, según los casos, se pararía el programa o 
incluso podría producirse una situación de «cuelgue» del ordenador. 

Por tanto, es necesario, cada vez que se vaya a pedir nuevos datos, com- 
probar antes si todavía hay suficiente espacio para ellos. La mayoría de los 
compiladores tienen alguna función para esto. Esta función en alguna ver- 
sión de PASCAL se denomina MEMAVAIL y devuelve la cantidad de me- 
moria libre (en bytes o en algún otro tipo de medida) en el momento de 
la llamada: 


IF MEMAVAIL < MINIMO THEN WRITELN ('Se acabó la memoria.”); 


La utilización de almacenamiento dinámico elimina la obligación de 
hacer previsiones sobre el número de datos que se van a procesar, y los 
punteros permiten, además, crear fácilmente estructuras de tipo cola o ár- 
bol (de la que veremos un ejemplo). Para completar el panorama sólo hace 
falta tener la posibilidad de, opcionalmente, dejar libre la zona de memo- 
ria de las variables dinámicas que no se vayan a utilizar más para así po- 
der reservar otras nuevas. 

Esto se consigue en PASCAL mediante los procedimientos predefinidos 
MARK y RELEASE. Si escribimos: 


MARK (P); 
donde P es un puntero de cualquier tipo, al ejecutarse el procedimiento 
se guarda en P la posición de la última zona de memoria ocupada. Poste- 
riormente, si se llega a la instrucción: 


RELEASE (P); 
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toda la memoria que se reservó para variables dinámicas tras ejecutarse 
MARK (P) queda libre para otras nuevas. Los datos de aquellas variables 
se pierden y, por tanto, hay que tener mucho cuidado al utilizar estos pro- 
cedimientos. 

Algunos compiladores disponen también del procedimiento DISPOSE. 
Con él es posible dejar libre sólo la zona que corresponda a una variable 
específica. Si ponemos: 


DISPOSE (ULTIMO); 


la zona ocupada por la variable a que apunta ULTIMO queda libre, o sea, 
es una especie de «anti-NEW». Utilizando este método la memoria se libe- 
ra a trozos, por lo que es posible que al cabo del tiempo, aunque el total 
disponible sea grande, esté muy fragmentado. 

Por ello, suele haber, además de MEMAVAIL o su equivalente, otra fun- 
ción para conocer el tamaño del mayor pedazo disponible (en algún caso 
denominada MAXAVAIL), pues aunque hubiera suficiente memoria libre 
para un registro, pudiera ser que no hubiera ningún pedazo lo suficiente- 
mente amplio para albergarlo. 

En cualquier caso, el sistema MARK / RELEASE no se debe utilizar jun- 
to con DISPOSE a la hora de liberar memoria. 


Un programa de ejemplo 


Como último ejemplo de almacenamiento dinámico de registros, va- 
mos a escribir un programa capaz de hacer preguntas para intentar adivi- 
nar un animal y, caso de no poder hacerlo, tomar nota del animal que era 
y de sus características para tenerlo en cuenta en sucesivas ocasiones. 

La primera vez el programa preguntará directamente por un animal en 
concreto, por ejemplo, la mosca. Si acertara, ahí acabaría todo. Sin em- 
bargo, imaginemos que el animal que habíamos pensado fuera el perro. Al 
contestar al programa que no era la mosca, éste nos preguntaría qué ani- 
mal era el escogido (el perro) y alguna propiedad que lo distinguiera de 
la mosca (ladra). Con esta nueva información, al siguiente intento de des- 
cubrir un animal, el programa preguntaría primero si ladra, para, según 
fuera la respuesta, preguntar a continuación por el perro o por la mosca. 
De esta manera, el ordenador iría «aprendiendo» nuevos animales y nue- 
vas preguntas que hacer antes de preguntar por uno en concreto. 

Supongamos que, en un momento dado, la primera pregunta de todas 
fuese: «¿es un vertebrado?». Si la respuesta a ella fuese SÍ, habría que ha- 
cer a continuación alguna pregunta lógica para vertebrados, por ejemplo: 
«¿es de sangre caliente?», mientras que si hubiera sido NO, la siguiente pre- 


160 


gunta debería ser otra distinta. Para saber la secuencia de preguntas a ha- 
cer podríamos utilizar un esquema como el siguiente: 


1 —_—+S> 
SÍ ———S¿es un 
mamífero? 


y ¿es de sangre 
sI > caliente? 


¿es un 
NO ———3 reptil? 


¿es un vertebrado? 


NO =—————> ¿es un insecto? 


NO ————> 


SI 
sí ————> ¿vuela? | 


y así hasta llegar a preguntar por un animal en concreto. 

A la estructura que resulta se le denomina ESTRUCTURA TIPO ARBOL. 
En una estructura semejante, a cada punto de bifurcación se le llama 
NODO y al primer nodo de todos, RAIZ del árbol. 

Crear estructuras de datos de tipo árbol en PASCAL es muy fácil. En el 
caso que nos ocupa bastaría con utilizar una variable de tipo registro para 
cada nodo. Estos registros deberían tener un campo para guardar la pre- 
gunta y otros dos de tipo puntero para indicar a qué registros se debe acu- 
dir según la respuesta. Tras los nodos que preguntan por animales concre- 
tos no habría más registros. 

El programa empezaría así: 


Veamos ahora el procedimiento para determinar la secuencia de pre- 
guntas a partir de un nodo dado: 


«Mirar en árbol desde el nodo tal:» 
— ¿Es un nodo final? 
SÍ: Preguntar por el animal que contiene. 


— Si se ha acertado, se acabó. 
— Si se ha fallado, preguntar en qué animal se ha pensado y sus 
propiedades, ampliar con ello el árbol y terminar. 


NO: Formular la pregunta que contiene. 


— Si la respuesta es SÍ, mirar en árbol desde el nodo indicado 
por el puntero QUEST. 

— Si la respuesta es NO, mirar en árbol desde el nodo indica- 
do por el puntero QUENO. 


Como se ve, el procedimiento es recursivo, pues se llama a sí mismo. 
Para empezar una búsqueda se llamaría al procedimiento desde el progra- 


ma principal para «mirar en árbol desde el nodo raíz». 


Veamos ahora cómo ampliar el árbol con nueva información. Supon- 
gamos que se ha llegado a un nodo final que contiene «el león» y que la 
respuesta ha sido NO. Si el animal resultara ser «el perro» y la propiedad 


que lo distingue «ladra», deberíamos pasar de la situación: 


(el nodo anterior) ————> ¿es el león? 
a la nueva situación: 

sí ———> ¿es el perro? 
(el nodo anterior) =—————3>> ¿ladra? 


NO ———> ¿es el león? 


o sea, antes de preguntar por el león, preguntar si ladra por si acaso es el 
perro. El procedimiento sería: 


«Ampliar el árbol en el nodo tal:» 


1. Reservar sitio para dos nuevos registros a los que apunten QUESI 
y QUENO. 

2. Guardar en el primero de ellos el nuevo animal y hacer sus dos pun- 
teros iguales a NIL (es un nodo final). 


3. Guardar en el segundo el animal por el que se preguntó y hacer sus 
dos punteros iguales a NIL. 


4. Guardar la propiedad distintiva en el nodo en cuestión. 


El programa definitivo quedaría: 
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BEGIN  READLN (C); AFIRMATIVO := (C<>"n") AND (C<>"N') END; 
3: A «<= 
PROCEDURE AMPLIAR (Q: PUNTERO); 
(* Amplia el árbol en el nodo apuntado por Q*) 
VAR COPIA: TIPOFICHA; 
BEGIN 
WITH 07 DO 
BEGIN 
NEV (QUEST); 
NEW (QUENO); 


WRITELN; 

VRITE (“Que animal es ? (con “el” o “la” por delante): *); 
READLN (QUESI”. PREGUNTA); 

QUESI". QUESI:=NIL; 

QUESI” . QUENO:=NIL ; 


QUENO” . PREGUNTA : =PREGUNTA; 
QUENO” . QUESI:=NIL; 
QUENO” . QUENO:=NI1L; 
REPEAT 
WRITELN ('Déme una propiedad que lo distinga: ”); 
READLN (PREGUNTA); 
WRITELN (“Entonces, si pregunto:”); 
PONPREGUNTA (PREGUNTA); 
VRITELN; 
WRITE ("y la respuesta es SI, puedo suponer que es ”); 
PONPREGUNTA (QUESI”. PREGUNTA); WRITELN; 
UNTIL AFIRMATIVO; 


VRITELN; 
WRITELN (Gracias. Hasta otra.') 
END 


PROCEDURE MIRAAVEREN (P: PUNTERO); 
(* Avanza por el árbol desde el nodo apuntado por P *) 
VAR C: CHAR; 
BEGIN 
WITH P”-DO 
IF (QUESI=NIL) AND (QUENO=NIL) THEN —(%* si es final: *) 
BEGIN 
WRITE-CEs >); 
PONPREGUNTA (PREGUNTA); 
IF NOT AFIRMATIVO THEN AMPLIAR (P) 
ELSE BEGIN WRITELN; WRITELN (VALE, HASTA OTRA”) END; 
END 
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Gracias al empleo de almacenamiento dinámico, el árbol puede crecer 
con el único límite de la memoria que haya disponible. 

Aunque como ejemplo de programa de inteligencia artificial deja bas- 
tante que desear (no hay control sobre el crecimiento equilibrado del ár- 
bol, las preguntas no están jerarquizadas, es imposible modificar los no- 
dos existentes y, sobre todo, cuando se acaba el programa se pierden to- 
dos los datos trabajosamente tecleados), es un buen ejemplo de utilización 
de árboles, de lo fácil que resulta con PASCAL y de cómo los procedimien- 
tos recursivos resultan ser muchas veces la solución más sencilla. 

Nota: En caso de que nuestro compilador no admitiera la definición 
previa del tipo puntero, haríamos: 


Si resultara que la variable PRIMERO así definida fuese considerada 
como de distinto tipo que los campos QUESI y QUENO, haríamos lo si- 
guiente: 


y en lugar de PRIMERO utilizaríamos AUXILIAR.QUESI. Igualmente pu- 
diera ser que hubiera problemas al definir el tipo en la lista de parámetros 
de MIRAAVEREN y AMPLIAR; la solución sería pasar como parámetro un 
registro de tipo TIPOFICHA en cuyo campo QUESI (o QUENO) se guarda- 
ría previamente el puntero que realmente se desea transferir. 
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FICHEROS BE 


ASTA ahora, en todos los ejemplos que utilizaban datos in- 
troducidos por teclado para su posterior proceso, éstos se 
perdían al acabar de ejecutarse el programa. Recordemos 
el programa de ordenación de fichas, o el de los animales. 


Está claro que los ordenadores no habrían alcanzado 
la enorme difusión de nuestros tiempos si no existiera al- 
gún sistema para guardar los datos que se han introduci- 
do, o los nuevos datos obtenidos por los programas, de 
manera que estén disponibles para su uso en cualquier 
otro momento, aunque el ordenador se haya estado dedicando a otra ta- 
rea O incluso haya estado desconectado. De estas cuestiones trata este capí- 
tulo. 


Existen multitud de sistemas de almacenamiento de información. De 
ellos el más versátil y extendido entre los ordenadores personales es, sin 
duda, el de disco magnético flexible o «diskette». Aunque los conceptos de 
este capítulo se van a tratar en plan general, están desarrollados, no obs- 
tante, con la mirada puesta en los discos flexibles. 


Desafortunadamente, al ser estas cuestiones tan dependientes de cada 
máquina en concreto, el PASCAL estándar es poco explícito sobre ellas, 
por lo que hay prácticamente tantas maneras de programarlas como ver- 
siones de compilador se han desarrollado. 


Por ello, se va a explicar lo que hay al respecto en el PASCAL estándar, 
para pasar a continuación a la confección de ejemplos con una versión 
concreta de compilador. Para esto se ha escogido el TURBO PASCAL, de 
la casa Borland, que, entre otros, funciona con los ordenadores persona- 
les IBM y compatibles; éstos son unos de los ordenadores personales do- 
tados de disco flexible más difundidos en la actualidad y el compilador es, 
sin duda, el que más ha contribuido a la difusión del PASCAL y uno de los 
programas más vendidos en la historia de los ordenadores personales. 
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FICHEROS SECUENCIALES 


Se denomina fichero («file», en inglés) a una secuencia de datos del mis- 
mo tipo de los que sólo uno de ellos está disponible en un momento dado. 
Imaginemos una cinta de magnetófono en la que se han grabado palabras 
una detrás de otra; el conjunto de palabras es lo que se denominaría un 
«fichero de palabras» y, como es lógico, en un momento dado sólo es po- 
sible escuchar una de ellas. Los ficheros de oficina son también un buen 
ejemplo. 

Los datos que se guardan en los dispositivos de almacenamiento exter- 
no adoptan también esta estructura, de manera similar a como se encuen- 
tran las palabras guardadas en la cinta del ejemplo. Los datos se encuen- 
tran uno detrás de otro en algún tipo de soporte físico (una cinta o un dis- 
co magnético, usualmente), de manera que, en un momento dado, sólo 
uno de ellos se puede leer o grabar. 

Al igual que en la cinta podría haber diferentes conjuntos de palabras 
(por ejemplo, la lista de los reyes godos, los elementos de la tabla periódi- 
ca, etc.), en un dispositivo de almacenamiento puede haber diferentes fi- 
cheros, a cada uno de los cuales se le habrá dado un nombre distinto. 

Cuando la única forma de llegar a un elemento específico de un fiche- 
ro es comenzar por el primero, e ir recorriendo un elemento tras otro has- 
ta llegar al deseado, se dice que el fichero es SECUENCIAL (o de acceso 
secuencial). Es el caso de la cinta: la única forma segura de encontrar la 
palabra buscada es ponerse al principio y empezar a escuchar una tras otra 
hasta llegar a ella. 

Para cambiar o añadir información a un fichero secuencial, se hace 
igual que como se haría para sustituir o añadir palabras a la cinta: se va 
recorriendo el fichero elemento a elemento hasta llegar a la posición de- 
seada y entonces se graba la información. 

Hay una serie de programas ya preparados en los ordenadores que se 
encargan de manejar los dispositivos de almacenamiento. Son parte de lo 
que se conoce como «sistema operativo». Cuando se está trabajando con 
ficheros, estos programas se encargan de leer y grabar los datos en ellos 
cuando nuestro programa PASCAL se lo pide, quedando a su cargo el ma- 
nejo de una serie de punteros propios que les indican en qué elemento de 
un fichero nos encontramos en un momento dado, y en qué zona concre- 
ta del medio físico (cinta, disco...) se encuentra cada fichero. En princi- 
pio, no es necesario saber más sobre ellos. 

En PASCAL es posible definir variables de tipo fichero secuencial, con 
la particularidad de que los datos que albergan no están en la memoria 
del ordenador, sino que corresponden a los datos de un fichero almace- 
nado en el dispositivo externo, y de que el número de datos no está defi- 
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nido a priori. Lo único que se tiene en memoria en un momento dado es 
una copia del elemento del fichero en que nos encontramos; a su vez, es 
posible modificar o añadir un elemento en esa posición con datos proce- 
dentes de la memoria. 

También se puede, por supuesto, avanzar al siguiente elemento o posi- 
cionarse en el primero de todos, así como inaugurar ficheros o hacerlos 
desaparecer. 

Aunque teóricamente sería posible tener ficheros con todos sus com- 
ponentes almacenados en memoria, pocos compiladores lo permiten, y 
además su utilidad es para casos muy especiales de proceso de datos que 
escapan del alcance de este libro. 

El tipo de variable se describe poniendo las palabras reservadas FILE 
y OF seguidas del tipo de elemento que constituye el fichero. Se podría de- 
clarar previamente o describirlo al tiempo que se definen las variables. 
Para un fichero que contuviera los nombres de los reyes godos: 


Para que la variable F se pueda utilizar, hace falta indicar primero al 
PASCAL cómo se llama el fichero en que se encuentran sus datos y en qué 
dispositivo se encuentra aquél, caso de existir más de uno. No hay normas 
sobre cómo hacer esto, por lo que depende de cada compilador. 

Supongamos que esta operación ya se ha realizado; hemos dicho que 
en todo momento, y de manera automática, se tiene en memoria una co- 
pia del elemento del fichero sobre el que nos encontramos. Esa copia se- 
ría en el ejemplo una variable de tipo TIPOREYGODO y, como no tiene 
ningún identificador asociado, para referirse a ella se escribiría F” , que 
viene a significar algo como «la copia del elemento del fichero F en que 
nos encontramos ahora». Esta variable puede utilizarse como cualquier 
otra del mismo tipo, y su contenido puede modificarse con vistas a ser 
transferido después al fichero. Por ejemplo: 
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Para operar con ficheros se tienen las siguientes funciones y procedi- 
mientos predefinidos: 


EOF (F) Esta función (End Of File, fin de fichero) devuelve el va- 
lor lógico TRUE cuando nos hemos pasado de largo y 
nos hemos posicionado más allá del último elemento 
del fichero asociado a F. 


RESET (F) Este procedimiento hace que nos coloquemos al prin- 
cipio del fichero con vistas a su lectura. Tras su ejecu- 
ción, F” contendría el primer elemento (a no ser que 
el fichero estuviera vacío, en cuyo caso su contenido se- 
ría imprevisible y EOF (F) devolvería TRUE). 


GET (F) Este otro, sin embargo, hace que se avance al elemen- 
to siguiente a aquél en que nos encontrábamos, pasan- 
do F” a tener una copia suya. Por tanto, si no hubiera 
elemento siguiente, EOF (F) pasaría a valer TRUE y F” 
tendría un contenido indefinido. 


Con ellos, si, por ejemplo, quisiéramos leer del fichero todos los reyes 
que contuviera y guardarlos en la variable TABLA para su posterior utili- 
zación, podríamos hacer: 


Se ha utilizado una estructura WHILE, pues si el fichero estuviera va- 
cío, no habría que guardar ni un dato en TABLA. 

Imaginemos ahora que tenemos las notas de un examen guardadas en 
un fichero. Si definimos la variable NOTAS como FILE OF REAL, para cal- 


cular la nota media podríamos hacer: 


Para modificar o incorporar nueva información a un fichero se dispo- 
ne de los siguientes procedimientos: 


REWRITE (F) Este procedimiento hace que el fichero asociado a F se 
vacíe, perdiéndose sus datos y quedando preparado 
para empezar a guardar nuevos datos en él desde su co- 
mienzo. Tras su ejecución, EOF (F) pasa a valer TRUE. 


PUT (F) Al ejecutarse PUT (F), el contenido de F ” se transfiere 
al fichero, justo en la posición en que nos encontrába- 
mos, pasándose a continuación a la siguiente posición. 
Por tanto, si antes de ejecutarse estuviéramos más allá 
del último elemento, el nuevo quedaría a continuación, 
siendo ahora él el último, y quedando nuevamente po- 
sicionados más allá de éste. 


Con ellas, para guardar los elementos de TABLA en el fichero asociado 
a F haríamos: 


Para añadir nuevas notas al fichero NOTAS, justo a continuación de las 
ya existentes, haríamos: 


= Ejemplo 


Con el compilador escogido, para asociar un fichero de disco a una va- 
riable de tipo FILE, hay que ejecutar el procedimiento ASSIGN: 


ASSIGN (F, “GODOS. LST'); (* “asigna F a GODOS. LST” *) 


El nombre del fichero podría estar especificado con una variable o ex- 
presión en lugar de con una constante entre apóstrofes. La llamada a este 
procedimiento ha de ser el primer paso a ejecutar para trabajar con un fi- 
chero. 

Por otra parte, con este compilador, en lugar de los procedimientos 
GET y PUT, se utilizan los procedimientos READ y WRITE (que en este 
caso no son PASCAL estándar) de la siguiente manera: 


READ (F, TABLA [1]) 
que equivale a 
BEGIN TABLA [I] := F% GET (F) END 
o sea, «leer del fichero asociado a F el elemento en que estamos y guar- 


darlo en TABLA [I], para después posicionarse en el siguiente». Análoga- 
mente: 


WRITE (NOTAS,S) (“Guarda en el fichero NOTAS la variable S *) 


que equivale a 


BEGIN NOTAS *= S; PUT (NOTAS) END 


En el primer parámetro de la lista debe ser de tipo FILE, mientras que 
el segundo debe ser una variable del tipo constitutivo del fichero. 

Como observará el lector, los ejemplos anteriores de lectura y escritu- 
ra en ficheros se ven simplificados salvo en el caso de la búsqueda del fin 
de fichero, en que para avanzar habría que utilizar READ con una variable 
REAL cualquiera en lugar de GET: 


Cuando ya se ha terminado de trabajar con un fichero, hay que indi- 
cárselo al sistema operativo para que, en su caso, haga efectivos los cam- 
bios introducidos por medio del procedimiento CLOSE: 


CLOSE (F) (* “cierra el fichero asociado a F” e) 


Explicadas sus peculiaridades, podemos comenzar ya con el ejemplo. 
Consiste en modificar el programa de los animales para poder salvar los 
datos en disco. 

Para guardar un árbol, hay que salvar uno por uno, secuencialmente, 
todos sus nodos. Veamos un procedimiento para salvar un nodo dado jun- 
to con los pertenecientes a las ramas que de él salen: 


«Salvar el nodo Tal y los que de él dependen:» 


1. Salvar el nodo en cuestión. 

2. Si no es nodo final, entonces: 
— Salvar el nodo al que apunta QUESI y los que de él dependen. 
— Salvar el nodo al que apunta QUENO y los que de él dependen. 


Para salvar el árbol, bastaría con «salvar el nodo raíz y los que de él de- 
penden». No hace falta decir que el procedimiento es recursivo. Intente el 
lector imaginar cómo sería un procedimiento no recursivo con idéntico 
cometido; aunque es factible, elaborarlo no es tarea fácil. 

Esta manera de recorrer el árbol se denomina «preorden»; si el nodo 
en cuestión se salvará después que sus ramas, sería un «post-orden», y si se 
hiciera entre ambas ramas, sería un «orden central». Cualquier método se- 
ría válido en nuestro caso. 

Si la variable de tipo FILE se llamara FICHERO, el procedimiento que- 
daría: 
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Para salvar el árbol se ejecutaría SALVAR (PRIMERO). Por supuesto, 
antes hay que llamar a los procedimientos ASSIGN y REWRITE, y después 
al procedimiento CLOSE. 

Para recuperar un árbol almacenado en disco, se iría leyendo el fiche- 
ro secuencialmente y reconstruyendo el árbol nodo a nodo. 

Los campos QUESI y QUENO de cada nodo contienen las direcciones 
en memoria que tenían los siguientes nodos cuando se salvó el árbol. Es- 
tas no tienen por qué ser iguales al reconstruirlo en un momento poste- 
rior (puede ser un programa distinto, con más variables que ocupen sitio 
en memoria y desplacen la posición de ciertos datos...). Por tanto, habrá 
que cambiar esos campos tras leer cada nodo del disco. 

Sin embargo, su contenido sí es útil. Si los campos QUESI y QUENO 
de un nodo son distintos de NIL, eso quiere decir que, cuando se ejecutó 
el procedimiento SALVAR, tras el nodo se salvaron las ramas que de él sa- 
lían, que, por tanto, se encuentran a continuación en el fichero. El proce- 
dimiento ha de reflejar, así, el recorrido en preorden: 


«Recoger el nodo Tal y los que de él dependen:» 


1. Reservar sitio en memoria para el nodo, dejando listo el puntero 
que llevará hasta él. 

2. Recuperar el nodo de disco. 

3. Si no es nodo final, entonces: 


— Recoger el nodo al que apunta QUESI y los que de él dependen. 
— Recoger el nodo al que apunta QUENO y los que de él dependen. 


En definitiva: 
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Como el dato que se pasa es el puntero que lleva al nodo, el paso de 
parámetro ha de ser por nombre para que, tras ejecutarse NEW, se quede 
realmente apuntando a la zona de memoria reservada. 

Tras ejecutarse ASSIGN y RESET para posicionarnos al principio del fi- 
chero, se ejecutaría RECOGER (PRIMERO). 

Por otra parte, podríamos definir la constante NOMBRE, para el nom- 
bre del fichero: 


y la variable FICHERO: 

== —— 
=—<—————————— A >>] 
===========5555E ESE AA 


Con todo esto, sólo quedaría modificar el programa principal: 


Cuando se ejecuta REWRITE de un fichero que todavía no existe, se 
crea uno con ese nombre que queda listo para albergar datos. 
El programa resultante no dispone de tratamiento de errores, por lo 


== FICHEROS DE TEXTO 


Muy frecuentemente lo que se desea guardar en un fichero son datos 
tal como aparecerían en la pantalla del ordenador, o sea, frases, palabras 
o números representados con los caracteres que les corresponden. Se sue- 
le guardar así información que en algún momento ha de ser leída tal cual, 
sin ser sometida a ningún proceso. Una carta, un capítulo de este libro o 
el texto de un programa PASCAL son casos típicos. 

Para ello habría que utilizar estructuras de tipo FILE OF CHAR que per- 
mitirían guardar los datos en forma de chorro de caracteres. 

Los textos normalmente se encuentran divididos en renglones, siendo 


Volviendo al ejemplo de la cinta, es como si, habiendo grabado un li- 
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bro en ella, se hubiera indicado el final de cada renglón con un silbido o 
una palmada. 

Tan habituales son estos ficheros que su tipo se encuentra ya predefi- 
nido con el nombre TEXT. 

Como tales ficheros de caracteres, se podrían utilizar todos los proce- 
dimientos vistos hasta ahora para leer o escribir de carácter en carácter; 
sin embargo, el PASCAL permite hacer un tratamiento un poco especial 
de los ficheros de tipo TEXT para manejar cómodamente la cuestión de 
las líneas, por medio de los procedimientos READ, READLN, WRITE y 
WRITELN junto con la función EOLN. Si definimos: 


VAR T: TEXT; (* más o menos como poner T: FILE OF CHAR *) 


T sería una variable con un fichero de texto asociado, y podríamos ha- 
cer lo siguiente con ella: 


EOLN (T) Esta función (End Of LiNe, fin de línea) devuelve TRUE 
si nos encontramos al final de una línea, y FALSE en 
caso contrario. 


READLN (T) Cuando se está leyendo el fichero asociado a T, con esto 
nos posicionaríamos en el primer carácter de la si- 
guiente línea a aquélla en que nos encontramos. 


WRITELN (T) Al escribir en el fichero asociado, esto pondría la mar- 
ca de fin de línea justo a continuación del último ca- 
rácter escrito, quedando todo listo para comenzar a es- 
cribir los de la siguiente línea. 


Por otra parte, con los ficheros de texto SI está definida en el PASCAL 
estándar la utilización de WRITE y READ que hemos empleado en el últi- 
mo ejemplo: 


a a 

¡NIE A) ANO 

DECTART TE. CC DIMTITY ENT 

equivale a BEGIN L=<=C-PFULCEND 
mm 


o sea, leer (o escribir) el carácter C en la posición del fichero en que nos 
encontramos, para pasar después a la siguiente posición. 

Sin embargo, la utilización de READ y WRITE va más allá: es posible 
leer o escribir varios datos con una sola instrucción: 


y análogamente con WRITE. Si tras una instrucción READ o WRITE, res- 
pectivamente, hubiera que ejecutar READLN o WRITELN, se podría utili- 
zar una sola instrucción: 


Esto último, por ejemplo, supondría escribir el carácter C seguido de 
una marca de fin de línea. 

Además, no sólo se pueden leer o escribir caracteres; es posible escri- 
bir valores de tipo INTEGER o REAL utilizando incluso definiciones de es- 
paciado, de manera que lo que se escriba sea su representación con ca- 
racteres. Si, por ejemplo, pusiéramos: 


y N fuera una variable INTEGER con valor 54, esto sería equivalente a 


También se pueden escribir en un fichero valores de tipo BOOLEAN, 
lo que equivaldría a escribir la palabra “FALSE* o “TRUE, y, normalmente, 
strings y datos de tipo ARRAY de caracteres. 

Igualmente, si el fichero contuviera, por ejemplo, los cuatro caracteres 
* 36 ' y estuviéramos posicionados sobre el primero de ellos (un espacio 
en blanco) o el segundo, la ejecución de 


sicionados en el carácter siguiente al seis o al comienzo de la siguiente lí- 
nea, según el caso. 

En otras palabras, con READ, READLN, WRITE y WRITELN se puede 
hacer EXACTAMENTE lo mismo que hacíamos para escribir datos en pan- 
talla o leerlos de teclado, solo que enviando los caracteres que normal- 
mente aparecerían en la pantalla a un fichero, y recogiendo los datos que 
normalmente se leerían del teclado de un fichero. Al leer datos de un fi- 
chero, la marca de fin de línea sería equivalente a pulsar la tecla de RE- 
TURN (intro, newline, etc.) cuando se lee del teclado. 

Esta coincidencia no es casual. La presentación en pantalla toma la es- 
tructura de una secuencia de caracteres distribuida en renglones, y los da- 
tos que se introducen desde teclado son también secuencias de caracteres 
separadas entre sí a golpes de RETURN. Por ello, en PASCAL se trata al dis- 
positivo de presentación de datos (normalmente la pantalla) y al de reco- 
gida de datos (normalmente el teclado) como si fueran ficheros. Unos fi- 
cheros un poco especiales, pues sus datos tienen una vida efímera. Por 
ejemplo, una vez que se han leído datos de teclado, no es posible volver a 
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posicionarse en el primero de ellos para repetir la lectura, y mientras en 
uno de ellos sólo se puede escribir, con el otro sólo se puede leer. 

Estos ficheros se encuentran predefinidos y se llaman, respectivamen- 
te, OUTPUT (salida, en inglés) e INPUT (entrada). Los procedimientos RE- 
SET y REWRITE no se utilizan, como es lógico, con estos ficheros. 

Para escribir un dato en el fichero OUTPUT y leer otro del fichero IN- 
PUT, haríamos: 


Cuando en un procedimiento de los existentes para ficheros no apare- 
ce como primer parámetro el nombre de una variable de tipo FILE, el PAS- 
CAL supone que el fichero que falta es, según el caso, OUTPUT o INPUT, 
por lo que lo anterior equivale a: 


En otras palabras, todos los ejemplos del libro en que hemos utilizado 
esos procedimientos han sido casos particulares de escritura o lectura de 
ficheros de tipo TEXT. En todos esos ejemplos podríamos, por tanto, ha- 
ber enviado datos a un fichero en lugar de a la pantalla para su posterior 
utilización, o leído los datos de un fichero en lugar del teclado, sin más 
que colocar en cada instrucción de entrada o salida el nombre de la va- 
riable de tipo FILE asociada al fichero (y hacer los preparativos previos 
para manejar ficheros que ya conocemos). 

Para enviar datos a otros dispositivos, el método suele ser el mismo. 
Por ejemplo, es corriente que, caso de haber impresora, ésta figure como 
un fichero con un nombre predefinido. Este fichero sería similar al fiche- 
ro OUTPUT. 

La posibilidad de salvar y recoger números en ficheros utilizando no 
los códigos que internamente emplea el ordenador, sino su representación 
por medio de caracteres, tal como los escribiría un ser humano, sirve para 
que datos preparados y salvados por un programa en un ordenador dado 
se puedan leer con otro programa preparado con un compilador distinto 
o con un ordenador de distinto tipo. 
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Ejemplos 


Con el compilador escogido no hay excepciones importantes a lo que 
hemos descrito. 

En primer lugar, vamos a escribir un programa para guardar en un fi- 
chero de texto los datos que tecleemos. Los datos tecleados para cada lí- 
nea se recogerán en una variable ARRAY OF CHAR, pero en el fichero 
sólo se guardarán los caracteres realmente tecleados. (Cuando el número 
de éstos es menor que los que tiene definidos la variable, al leerse ésta se 
completa automáticamente con espacios en blanco.) 


100: 
¡SSIGN (FICHERO. MOMBRE): 
¡POE 


E 


pus 
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Aunque pudiera parecer que la eliminación de blancos se puede pro- 
gramar de manera más sencilla, se ha hecho así para evitar que se pueda 
llegar a hacer referencia a RENGLON [0] al pulsarse Intro dos veces se- 
guidas, pues entonces RENGLON sería todo espacios en blanco. 

Este programa serviría, por ejemplo, para escribir programas PASCAL 
línea a línea y guardarlos en un fichero. A diferencia de un buen progra- 
ma editor, no es posible corregir los errores una vez se ha pasado a la si- 
guiente línea. 

Por último, vamos a escribir un programa para presentar por pantalla 
el contenido de un fichero de texto: 


Aunque no está definido en el PASCAL estándar, casi todos los compi- 


ACCESO ALEATORIO A FICHEROS 


El acceso aleatorio consiste, a diferencia del acceso secuencial, en po- 
derse posicionar en el elemento que se quiera de un fichero sin necesidad 
de comenzar por el primero e ir recorriendo todos uno detrás de otro. Esto 
es posible cuando los elementos que componen el fichero ocupan todos 
el mismo espacio de almacenamiento, pues entonces es posible calcular a 
qué «distancia», por decirlo de alguna manera, se encuentra el deseado. 
En el ejemplo de la cinta, si todas las palabras ocuparan la misma longitud 
de cinta, sería posible saber cuánto hay que rebobinar o avanzar para po- 
sicionarse sobre otra dada. 

Para ello, suele existir un procedimiento que podría ser algo como: 


SEEK (F,N) (* “Seek” es buscar en inglés *) 


donde F sería una variable de tipo FILE y N algún valor INTEGER. 

Si N valiera, por ejemplo, 17, tras su ejecución quedaríamos posicio- 
nados sobre el elemento decimoséptimo del fichero asociado a F. De esta 
manera, podría utilizarse un fichero de manera similar a como se utiliza 
una variable de tipo ARRAY. 

Además, suele existir alguna función para obtener el número de ele- 
mentos que tiene un fichero. 

Cuando el fichero es de caracteres, lo único que se podría hacer es po- 
sicionarse sobre el carácter número tal, pero no sobre la línea número 
cuál, pues el tamaño de éstas no es constante. 

Se podría imitar el procedimiento SEEK para un tipo de fichero espe- 
cífico, a base de colocarse al principio del fichero cada vez y recorrer lo 
que se necesite, pero, como imaginará el lector, puede ser terriblemente 
lento: 
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ENCICLOPEDIA PRACTICA DE LA 


INDICE GENERAL 


1 COMO CONSTRUIR JUEGOS DE AVENTURA 
Descripción y ejemplos de las principales familias de juegos de aventura para 
ordenador: simuladores de combate, aventuras espaciales, búsquedas de 
tesoros..., terminando con un programa que permite al lector construir sus 
propios libros de multiaventura. 


2 COMO DIBUJAR Y HACER GRAFICOS CON EL ORDENADOR 
Desde el primer «brochazo» aprenderá a diseñar y colorear tanto figuras 
sencillas como las más sofisticadas creaciones que pueda llegar a imaginar, sin 
necesidad de profundos conocimientos informáticos ni artísticos. 


3 PROGRAMACION ESTRUCTURADA EN EL LENGUAJE 
PASCAL 

Invitación a programar en PASCAL, lenguaje de alto nivel que permite 
programar de forma especialmente bien estructurada, tanto para aquellos que ya 
han probado otros lenguajes como para los que se inician en la Informática. 


4 COMO ELEGIR UNA BASE DE DATOS 
Libro eminentemente práctico con numerosos cuadros y tablas, útil para poder 
conocer las bases de datos y elegir la que más se adecúe a nuestras necesidades. 
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5 AÑADA PERIFERICOS A SU ORDENADOR 
Breve descripción de varios periféricos que facilitan la comunicación con el 
ordenador personal, con algunos ejemplos de fácil construcción: ratón, lápiz 
óptico, marco para pantalla táctil... 


PRACTIQUE MATEMATICAS Y ESTADISTICA CON EL 
ORDENADOR 
En este libro se repasan los principales conceptos de las Matemáticas y la 
Estadística, desde un punto de vista eminentemente práctico y para su aplicación 
al ordenador personal. Se basan los diferentes textos en la presentación de 
pequeños programas (que usted podrá introducir en su ordenador personal). 


1 APL: LENGUAJE PARA PROGRAMADORES DIFERENTES 
APL es un lenguaje muy potente que proporciona gran simplicidad en el 
desarrollo de programas y al mismo tiempo permite programar sin necesidad de 
conocer todos los elementos del lenguaje. Por ello es ideal para quienes reúnan 
imaginación y escasa formación en Informática. 


8 DISPOSITIVOS INTERACTIVOS PARA SU ORDENADOR 
Descripción detallada de la forma de construir, paso a paso y en su propia casa, 
dispositivos electrónicos que aumentarán la potencia y facilidad de uso de su 
ordenador: tableta digitalizadora, convertidores de señales analógicas, 
comunicaciones entre ordenadores. 


CRIPTOGRAFIA: LA OCULTACION DE MENSAJES Y EL 
ORDENADOR 
En este libro se presentan las técnicas de ocultacion de mensajes a través de la 
criptografía desde los primeros tiempos hasta la actualidad, en que el uso de los 
computadores ha proporcionado la herramienta necesaria para llegar al 
desarrollo de esta ciencia. 


| 0 PRACTIQUE CIENCIAS NATURALES CON EL ORDENADOR 
Ejemplos sencillos para practicar con el ordenador. Casos curiosos de la 
Naturaleza en forma de programas para su ordenador personal. 


l 1 GRAFICOS ANIMADOS CON EL ORDENADOR 

En este libro las técnicas utilizadas para la animación son el resultado de unas 
pocas ideas básicas muy sencillas de comprender. Descubrirá los trucos y 
secretos de movimientos, choques, rebotes, explosiones, disparos, saltos, etc. 


1 2 JUEGOS INTELIGENTES EN MICROORDENADORES 

Los ordenadores pueden enfrentarse de forma «inteligente» ante puzzles y otros 
tipos de juegos. Esto es posible gracias al nuevo enfoque que ha dado la IA a la 
tradicional teoría de juegos. 
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1 3 ECONOMIA DOMESTICA CON EL ORDENADOR PERSONAL 
Breve introducción a la contabilidad de doble partida y su aplicación al hogar, 
con explicaciones de cómo utilizar el ordenador personal para facilitar los 
cálculos, mediante un programa especialmente diseñado para ello. 


l COMO SIMULAR CIRCUITOS ELECTRONICOS EN EL 
ORDENADOR 

Introducción a los diferentes métodos que se pueden emplear para simular y 

analizar circuitos electrónicos, mediante la utilización de diferentes lenguajes. 


1 S LOS LENGUAJES DE LA INTELIGENCIA ARTIFICIAL 

Libro en que se describen los lenguajes específicos para la «elaboración del 
saber» y los entornos de programación correspondientes. El conocimiento de 
estos lenguajes, además de interesante en sí mismo, es sumamente útil para 
entender todo lo que la Informática Artificial supondrá para el futuro de la 
Informática. 


1 6 PRACTIQUE FISICA Y QUIMICA CON SU ORDENADOR 
Libro eminentemente práctico para realizar pequeños «experimentos» con su 
ordenador y distraerse de un modo útil. 


1 fi EL ORDENADOR Y LA LITERATURA 

En este libro se examinan procesadores de textos, programas de análisis literario 
y una curiosa aplicación desarrollada por el autor: APOLO, un programa que 
compone estructuras poéticas. 


l 8 COMO ELEGIR UNA HOJA ELECTRONICA DE CALCULO 

En este título se estudian las diferentes versiones existentes de esta aplicación 
típica, desde el punto de vista de su utilidad para, en función de las necesidades 
de cada usuario y del ordenador de que dispone, poder elegir aquella que más se 
adecúe a cada caso. 


l DIBUJOS TRIDIMENSIONALES EN EL ORDENADOR 
¡PERSONAL 

Compruebe que también con su ordenador personal puede llegar a diseñar y 

calcular imágenes en tres dimensiones con técnicas semejantes a las utilizadas 

por los profesionales del dibujo con equipos mucho más sofisticados. 


20 ¿MAQUINAS MAS EXPERTAS QUE LOS HOMBRES? 

Después de situar los «sistemas expertos» en el contexto de la inteligencia 
artificial y describir su construcción, su funcionamiento, su utilidad, etc., se 
analiza el papel que pueden tener en el futuro (y presente, ya) de la Informática. 
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2 1 PRACTIQUE HISTORIA Y GEOGRAFIA CON SU ORDENADOR 
Libro interesante para los aficionados a estas ciencias, a quienes presenta una 
nueva visión de cómo utilizar el microordenador en su estudio. 


h ERGONOMIA: COMUNICACION EFICIENTE 
HOMBRE-MAQUINA 

Análisis de la comunicación entre el hombre y la máquina, y estudio de 

diferentes soluciones que tienden a facilitarla lo más posible. 


23 EL ORDENADOR Y LA ASTRONOMIA 
Los cálculos astronómicos y el conocimiento del firmamento en un libro 
apasionante y curioso. 


2 VISION ARTIFICIAL. TRATAMIENTO DE IMAGENES POR 
ORDENADOR 

El procesado de imágenes es un campo de reciente y rápido desarrollo con 

importantes aplicaciones en áreas tan diversas como la mejora de imágenes 

biomédicas, robóticas, teledetección y otras aplicaciones industriales y militares. 

Se oi los principios básicos, los sistemas y las técnicas de procesado más 

usuales. 


25 LA ESTACION TERMINAL PERSONAL 

Las modernas técnicas de comunicación van permitiendo que las grandes 
capacidades de proceso y el acceso a bases de datos de gran tamaño estén cada 
día más al alcance de cada usuario (fuera ya de los Centros de Proceso de 
Datos). 


he EL ORDENADOR COMO MAQUINA DE ESCRIBIR 
INTELIGENTE 

Descripción de los sistemas de tratamiento de textos existentes, análisis 

comparativos y estudio de posibilidades de cada uno de ellos. Guía práctica para 

la elección del presente paquete que más se adecúe a nuestras necesidades y al 

ordenador personal de que dispongamos. 


Y EL LENGUAJE C, PROXIMO A LA MAQUINA 

Lenguaje de programación que se está imponiendo en los microordenadores más 
grandes, tanto por su facilidad de aprendizaje y uso, como por su enorme 
potencia y su adecuación a la programación estructurada. Vinculado 
íntimamente al sistema operativo UNIX es uno de los lenguajes de más futuro 
entre los que utilizan los micros personales. 
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2 EL ORDENADOR COMO INSTRUMENTO MUSICAL Y DE 
'COMPOSICION 

Análisis de cómo se puede utilizar el ordenador para la composición o 

interpretación de música. Libro eminentemente práctico, con numerosos 

ejemplos (que usted podrá practicar en su ordenador casero) y lleno de 

sugerencias para disfrutar haciendo de su ordenador un verdadero instrumento 

musical. 


209 LA CREATIVIDAD EN EL ORDENADOR. EXPERIENCIAS EN 
LOGO 

El LOGO es un lenguaje enormemente capacitado para la creación 
principalmente gráfica y en especial para los niños. En este sentido se han 
desarrollado numerosas experiencias. En el libro se analizan estas experiencias y 
las posibilidades del LOGO en este sentido, así como su aplicación a su 
ordenador casero para que usted mismo (o con sus hijos) pueda repetirlas. 


3 SISTEMAS OPERATIVOS: EL SISTEMA NERVIOSO DEL 
ORDENADOR 

Características de diversos sistemas operativos utilizados en los ordenadores 

personales y caseros. Se trata de llegar al conocimiento, ameno, aunque 

riguroso, de la misión del sistema operativo de su ordenador, para que usted 

consiga sacar mayor rendimiento a su equipo. 


NOTA: Ediciones Siglo Cultural, S. A., se reserva el derecho de modificar, sin 
previo aviso, el orden, título o contenido de cualquier volumen de la colección. 
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Uno de los lenguajes de programación 
más en auge de la actualidad es, sin duda, 
el PASCAL. Este libro hace una 
introducción a la programación con el 
lenguaje PASCAL pensada tanto para 
programadores sin experiencia como para 
aquéllos que, habiendo probado otros 
lenguajes, desean aprenden a escribir 
programas de ordenador de una manera 
más clara y sencilla. 


A lo largo del libro se van introduciendo, 
además, conceptos básicos de la 
Informática, como son la ordenación de 
tablas, los algoritmos recursivos y la 
gestión de listas encadenadas y árboles. 


